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C'est pour pouvoir faire face à une 
demande plus de dix fois 
supérieure à ce qui avait été prévu 
qu'Hello a décidé de lancer une 
nouvelle fabrication de 2 000 
cartes Apple-Tell. Avantage de 
la grande série : de très sensibles 
réductions de coût sur le prix des 
composants LSI et VLSI, 
permettant de faire chuter de plus 
de 20 % le prix de la carte 
Apple-Tell. 
Le modem vedette de votre Apple, 
déjà couronné Pomme d'Or 1983, 
a suscité en 1984 trois nouvelles 
Pommes d'Or, récompensant trois 
des (très nombreux) logiciels que 
ses utilisateurs ont déjà dédiés 
à Apple-Tel : 
—> MICRO-KIDS : serveur 
monovoie pour les établissements 
d'enseignement. 
—> VASA : outil de composition 
de pages vidéotex incluant 
un serveur arborescent complet. 
— TÉLÉBASIC : Basic télécom 
et vidéotex, destiné à la création 
de serveurs et de terminaux 
automatiques. 
Parmi les autres logiciels créés pour 
Apple-Tell : 
— TELEPOM : enrichissement 
du Basic (60 instructions nouvelles) 
permettant de créer soi-même 
des serveurs (Asci et vidéotex). 
des messageries ou toutes applications 
télématiques. 
— ASCII EXPRESS : outil général 
de télécom destiné à permettre 
l'impression et le stockage des 
données reçues, incluant un 
émulateur universel de terminaux. 
— PROTEXT : éditeur-souris, 
permettant la composition (texte et 
dessins) de pages Télétel destinées 
à des serveurs. 
— FAKIR : serveur Ascii 
(messagerie électronique intégrée, 
incluant panneau d'annonces, 
annuaire des abonnés, 
téléchargement, horloge temps réel, 
mots de passe, console opérateur, 
etc.). 
— DISCOBOLE : copie de disquettes 
par téléphone (Dos, MemDos, Pascal, 
CP'M} 
—> TRANSTEXT : convertisseur 
d'écrans (Haute Résolution 

Télétel) 
D BASI : module-système 
permettant la commande du modem 
depuis le Basic, sous ProDos 
— PROSPECTOR : générateur 
d'étiquettes-adresses par consultation 
automatique de l'annuaire 
électronique selon des choix 
socioprofessionnels et géographiques. 


— CALVA-KIT : consultation 





conseillé au 1° février 198 


Prix utilisateur H:1 


automatisée du centre serveur 
“Calvados”. 

—> PELAGEE : serveur spécialisé, 
permettant la consultation d'un Apple 
à partir d'un réseau de minitels. 
(Deux versions : Basic/Dos 3.3 et 
MemDos.) 

D NESTOR4 : serveur à QUATRE 
ACCÈS SIMULTANÉS, disque dur 

10 Mo, gestion automatique des 
touches de fonctions du minitel, 
arborescence et mots clés intégrés. 
D NESTORI : serveur monovoie 
(même caractéristiques que Nestor4) 








… Les Serveurs sont Servis ! 


APPLE-TELL COMPREND : 

e une carte Modem (avec terminal Ascii 
intégré) incluant un décodeur Télétel 

e Un logiciel d'émulation de terminal 
Minitel enrichi des fameuses trois 
fonctions dont l'absence est une tragédie 
quotidienne pour les utilisateurs 

de Télétel 

IMPRESSION (sur l'imprimante 

de l'Apple) 


STOCKAGE sur disquettes des pages 


consultées (formats Télétel ou Ascii), GÉNÉRALES : 
AUTOMATISME : interrogation e modem 1 200 75 (Ccitt} et 300 full standards 
automatique des serveurs (appel Caitt et Bell). à numérotation automatique 
téléphonique, orientation Transpac e äuto-CONIk ne m a 4 la création dé 
n e serveurs 300 « 200 
identification, choix successifs). SÉIVEUTS AU QU UNAUS à à | 
e sorties : vidéo composite (N & Bi et Péritel 
enregistrement des données consultées, leurs 
couleur 
DES NAN PANNE e enfichable dans n importe quel slot libre 
des données dans l'application de votre Apple 2° ou 2+ (48 K. une 5 
(Ces procédures d'interrogation sont disquette) , 
créées par l'utilisateur, sans aucun e transparènce totale vis-à-vis é 
langage de programmation, grâce au ” du svstèmn id 
mode APPRENTISSAGE d'Apple-Tell.) (24 , HELLO 
Enfin et surtout, une jonction est ;” Informatique 
possible avec les outils de travail ne 1, rue de Metz 
habituels (Apple- Writer, Visicalc, ‘ 75010 PARIS 
Multiplan, PFS, Quick-File, vd Tél. : (1) 523.30.34 
compta facturation, Fe Télex : FLASH 210 500 F 
Hichier, etc.) + Nom 
’ 
‘ . 
7 Société 
Adresse 
Ville 
#7 Code postal... Tél. .… 
" Souhaite recevoir une documentation sur le système Apple 
’ 
’ 
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Editorial 


Vous êtes nombreux, déjà plusieurs centaines, à avoir répondu au questionnaire publié dans le numéro 
17 de Pom's. La liste des gagnants se trouve en page 55. Les lecteurs qui ne l'ont pas encore rempli 
peuvent toujours le faire. En effet, une revue comme la nôtre est en permanence à l'écoute de son 
lectorat, et ce sondage est le meilleur moyen de connaître vos besoins. Nous ne pourrons pas, bien 
entendu, satisfaire toutes vos requêtes, dans la mesure où certaines d’entre elles sont contradictoires, 
mais nous tiendrons compte de toutes les remarques. Les résultats détaillés de ce sondage paraîtront 
dans le numéro 19. 


Nous tenons à rendre hommage à la revue Golden pour son bon goût : elle apprécie tellement Pom's 
qu'elle a publié dans un récent numéro, sous la plume de Joël Bernard, la transposition en assembleur 
du programme "Un analyseur de syntaxe” écrit par Olivier Herz et publié dans Pom's 6. En désassem- 
blant cette contribution ‘originale’, on retrouve l'algorithme d'Olivier, avec à peine quelques petites 
améliorations. Pour ne pas priver les fidèles lecteurs de Pom's, nous leurs offrirons dans le prochain 
numéro une version en assembleur de ce programme par Carlos Sacré : celle-ci permet, en outre, 
d'analyser de façon automatique tous les fichiers Basic d’une disquette. 


Puisque nous parlons de contributions, rappelons que nous demandons aux auteurs de nous envoyer 
sur une disquette les fichiers programme et le texte de l'article sous forme de fichier TEXT (de préfé- 
rence AppleWriter ou fichier ASCII sur Macintosh, mais ce n’est pas très important). Nous souhaitons 
que, de façon générale, les articles suivent le plan suivant : objet du programme, mode d'emploi, expli- 
cations techniques. Nous essayons de généraliser ce plan dans les articles de Pom ‘s, afin de faciliter au 
lecteur non spécialiste l’utilisation des merveilleux programmes de votre revue préférée. Dans la même 
ligne d'idée, vous verrez avant la fin de l’année un livre regroupant les objets et modes d'emploi de 
tous les programmes de Pom's depuis le péché de gourmandise d'Adam. 


Dans ce numéro, vous trouverez, comme à l'habitude les rubriques Courrier des lecteurs, Micro-infor- 
mations et Bibliographie que nous devons à Olivier Herz, Jean-Michel Gourévitch, et Alexandre 
Duback. Un sommaire des anciens numéros de Pom's vous est proposé, il vous permettra de trouver 
rapidement l'article qui vous intéresse, afin de compléter votre collection. 


Pom's à rencontré le célèbre pirateur de logiciel Aldo Reset... François Sermier nous offre la possibi- 
lité de sauver, sur la même disquette, des fichiers DOS 3.3 et ProDOS, tandis que Gérard Michel 
nous propose une saisie de variables par écran. 

Olivier Herz teste pour vous le logiciel Porte-Parole et illustre, grâce à un programme de Régis 
Lardennois , l'article sur les pointeurs en Pascal UCSD publié dans le précédent numéro. 

Les fenêtres du Macintosh ont inspiré Georges Zwingelstein : il à écrit un programme de gestion de 
fenêtres pour les Apple // 

Dans chaque numéro de Pom's (ou presque), plusieurs pages sont consacrées au graphisme ; ainsi, 


Thierry Han nous propose des ‘Graphiques Aléatoires” et Marc Debuigne une hard copy de la page 
HGR étendue. 


Jean-Pierre Januel nous offre la possibilité d'utiliser le DOS de façon tout à fait transparente, tandis 
que Patrice Neveu recherche et trouve instantanément des mots où groupe de mots dans un tableau 
de chaînes alphanumériques. Dans le Cahier Mac, Marianne Sutz explique comment récupérer les 
icônes du système depuis un programme Basic, tandis que Jean-Luc Bazaneguemodifie les informa- 
tions pour le Finder. Enfin, Julien Thomas analyse les curseurs du système. # 
Nous nous retrouverons enfin tous lors du grand délire d'Apple Expo, du 14 au 16 juin où, outre le Es 
stand de Pom's, vous pourrez apprécier de nombreuses manifestations. Nous recommandons tout parti- 

culièrement le débat passionnant que notre collègue Jean-Louis Courleux (France Inter) organise le 

dimanche après-midi, mettant face à face des auteurs de logiciels bestsellers et les plus prestigieux 

pirateurs de logiciel français. 

Il est important de préciser que l'entrée à Apple Expo est gratuite pour les membres du Club Apple. Les 

lecteurs de Pom's, quant à eux, bénéficieront d'une remise de 50% sur présentation du dernier nu- 

méro. 


Hervé Thiriez 
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DRIVE CHINON 


29 
5 1/4 COMPATIBLE APPLE I1+,Ille,llc 
NOUVEAU: Câble pour llc 





- 1/2 HAUTEUR 
- 40 PISTES (48 T.P.I) 

- 143 Ko SOUS DOS 3.3 

- 160 Ko SOUS DOS MODIFIE 

- DETECTION DE PISTE O ET PROTECTION 
- ECRITURE PAR OPTO-ELECTRONIQUE 

- MOTEUR À ENTRAÎNEMENT DIRECT 

- SYSTEME DE FERMETURE BREVETE 








LE MEILLEUR RAPPORT QUALITE /PRIX DU MARCHE 


Floppy simple 1 256 Frs H.T 1 490 Frs T.T.C 
PROMOTION Floppy double 2 521 Frs H.T 2 990 Frs T.T.C 


(prix par quantité sur demande) 


Ce lecteur de disquette a été homologué par la FRAMIF, 


l’Aérospatiale,le club Thomson,etc.…. 


- HAUTE FIABILITE 

- SILENCIEUX 

- FAIBLE CONSOMMATION 
-GARANTIE 1 AN 





CE MODELE FAIT PARTIE D’UNE GAMME COMPLETE DE LECTEURS 51/4 & 31/2 AVEC INTERFACE SASI. 


Autres modèles disponibles pour tous micros (nous contacter) 





| 

; 

| O| -Carte 80 colonnes étendue 990 T.T.C 

: O| -Disquettes 51/4 11,90 Frs H.T par boîte de 10.(13,90 Frs LE 

%| Moniteurs 12” haute résolution vert ou orange 990 Frs T.T.C 

| D MICRO-DISPO Tél: 5668717 DT PIED OO Té2wes 
__58,rue Blomet ___ 75015PARIS 42,bd Magenta 75010 PARIS 

| NOM eee PRENOM sea armee FOR sinon 

| RES enr nd it Na ie ie entorse des 

| DROGHE TE soisainsious inner nee PROFESSION ::::.ssuce 


Veuillez m'envoyer une documentation sur vos produits. 
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Disquette mixte ProDOS/DOS 3.3 


Principe 


Vous venez de découvrir ProDOS, 
particulièrement la grande facilité de 
l'accès disque au niveau du bloc à 
partir du Basic (nous allons y reve- 
nir..), mais vous aimez bien DOS 
3.3 et d’ailleurs beaucoup de vos 
programmes style ZAP ne sont pas 
compatibles ProDOS... 
Ou encore, vous échangez des dis- 
quettes de programmes avec des 
amis et il vous faut toujours 2 dis- 
quettes différentes (ou 2 faces), une 
pour DOS 3.3, une pour ProDOS: 
cela finit par poser des problèmes 
(exemple : disquette Pom's). 
Vous aimeriez bien avoir tout cela 
sur une même disquette. Et bien 
c'est dorénavant possible avec le jeu 
de programmes présentés ici. 
La démarche à suivre est (relative- 
ment) naturelle : 
e Initialiser une disquette ProDOS à 
l’aide du FILER 
e Modifier à la main, à l’aide d’un 
utilitaire de type ZAP, le Volume 
Bit Map (équivalent ProDOS du 
VTOC 3.3), pour limiter la partie 
utilisée par ProDOS 
e Créer à la main une piste CATA- 
LOG 3.3 et un VTOC s’attribuant 
la partie non ProDOS. 


Le programme INITPRO3.3 ci-après 
se charge automatiquement des deux 
dernières étapes. Il vous demande 
seulement à partir de quelle piste 
vous désirez que commence la partie 
DOS 3.3 (par défaut, il coupera la 
disquette en 2, parties égales, au mi- 
lieu de la piste 17). Il vous demande 
également si vous désirez raccourcir 
le Directory ProDOS : comme la dis- 
quette contient moins de blocs, vous 
pouvez ramener le Directory de 4 à 
2 blocs et récupérer ainsi ÎK octets 
de mémoire disque (cela vous laisse 
tout de même 25 entrées, dont 
d'éventuels SubDirectory au CATA- 
LOG, au lieu de 51). Même pro- 
blème pour la partie DOS 3.3, où la 
taille du CATALOG peut être fixée 
de 4 secteurs minimum à 15 maxi- 
mum. 


Remarque importante : normale- 
ment, tronquer le répertoire est sans 
danger... mais, on peut avoir des sur- 
prises : ainsi, CONVERT lit d'autorité 
les 15 secteurs de la piste 17 sans 
s'occuper de leur chaînage ni s’arré- 
ter à la première entrée vide, il si- 
gnale une erreur mais on peut pour- 
suivre et transférer tous les fichiers 
que l’on veut. Pire encore, la dis- 
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quette ‘Utilitaires //c"” refuse de re- 
connaître un volume ProDOS dont 
le répertoire est tronqué pour l'opé- 
ration Identifier / Lister Volume, mais 
accepte tout autre opération (copier 
fichier, transférer) …. bizarre ! Notez 
également qu'elle refuse obstinément 
de reconnaître la partie DOS 3.3 
d'une disquette mixte; on ne peut 
donc pas convertir sur la même dis- 
quette avec Utilitaires //c. Par contre, 
cela est parfaitement possible avec 
CONVERT. 


La disquette produite par INIT- 
PRO3.3 est lisible par ProDOS et 
DOS 3.3. Attention, un même pro- 
gramme ou fichier ne peut être lu 
que par l'un des deux DOS: il faut 
toujours recourir à CONVERT si l'on 
veut le faire passer d’une moitié à 
l’autre. Par contre la disquette n’est 
pas bootable ni en ProDOS ni en 
DOS 3.3. Ceci est normal en 
ProDOS où il faut la rendre explicite- 
ment bootable en y transférant 
PRODOS et BASIC.SYSTEM (ou 
tout autre programme de type SYS- 
TEM). On peut enfin simuler un boot 
DOS 3.3 en copiant DOS 3.3 sur la 
partie ProDOS et en appelant 
HELLO.OB)J qui se charge du reste. 


Ceci n’est que le premier pas vers un 
système totalement mixte où le Basic 
Applesoft pourra au choix utiliser 
DOS ou ProDOS permettant de 
CONVERTir très élégamment ces 
programmes Basic ou binaire. Mais 
n'anticipons pas. 


Secteurs, Blocs et MLI 


L'ensemble de l’opération est réalisa- 
ble car tous les systèmes d'exploita- 
tion (y compris CP/M et Pascal 
UCSD, voir programme INITPAS3.3 
dans le prochain numéro) utilisant le 
DISK II d'Apple s'appuient sur une 
même sectorisation physique de la 
disquette. Les différences viennent 
du fait que, pour diverses raisons, la 
sectorisation logique de la disquette 
n'est pas identique, c'est ce qu’on 
appelle l’entrelacement (interleaving). 
De plus en ProDOS, l'accès disque le 
plus élémentaire s'effectue non plus 
secteur par secteur mais par groupe 
de 2 secteurs appelé bloc. À noter 
que l'idée de piste n'existe plus en 
ProDOS. 

Les deux tables suivantes permettent 
de voir la correspondance entre les 
différentes notions de sectorisation 
pour la piste O. 





François Sermier 


TABLE 1 
emplacement physique : 
0123456789ABCDE 


secteur logique DOS 3.3 : 
0O7E6D5C4B3A2918 


bloc logique ProDOS : 
OA 4A OB 4B 1A 5A 1B 5B 2A 6A 
2B 6B 3A 7A 3B 7B 


TABLE 2 


blocs ProDOS : 
01234567 


secteurs DOS : 
O-E D-C B-A 9-8 7-6 5-4 3-2 1-F 


Pour les autres pistes, ces tables res- 
tent valables et relient le reste de la 
division par 8 du numéro de bloc et 
les secteurs DOS correspondants. Le 
numéro de piste est le quotient de la 
division par 8 du numéro de bloc. 
Exemple : 

piste 17, secteur 7: début du bloc 
numéro 8*17+4 soit 140 
réciproquement, bloc 100 = piste 
numéro (100/8) soit 12, reste 4 donc 
secteurs 7 et 6. 


On pourrait réaliser la conversion par 
les routines Basic suivantes : 


BLOC --> PISTESECTEUR 


PISTE = INT (BLOC / 8): 

RESTE = BLOC -—8 «+ PISTE: 

S1 =15 — 2 x RESTE: S2=S1-1 
IF S1-0 OR S1=15 THEN 
S1=15-S1 


PISTESECTEUR --> BLOC 


IF S=0 OR S=15 THEN S=15-S 
RANG = O:1FS =2 x INT(S/2) 
THEN RANG = 1 (ou simplement : 
RANG ={S = 2 x INT(S / 2)) 
BLOC= 8+PISTE +(7-—INT(S/2)) 


L'accès disque au niveau du bloc est 
extrêmement simple par l'intermé- 
diaire de MLI (Machine Language In- 
terface) qui regroupe un ensemble 
de 26 subroutines ProDOS repérées 
par un code et appelées de manière 
standardisée.  MLICALL montre 
comment utiliser cet appel MLI (voir 
listing MLICALL.SCE): l'appel de 
MLI doit être suivi du code de la 
fonction appelée et de l'adresse de la 
table des paramètres de la fonction. 
Le retour de MLI $e fait en sautant 
ces 3 octets. L'indicateur de retenue 
(Carry) est mis à 1 s’il s'est produit 
une erreur; le code de l'erreur est 
contenu dans l’accumulateur. On 
peut alors faire un traitement d'’er- 
reur. Cependant, il y a beaucoup 
d'erreurs possibles (29), aussi le plus 








efficace consiste à utiliser celui qui est 
fourni par le Basic : JSR BADCALL 
($BE8B) analyse les 29 erreurs MLI 
en 19 erreurs reconnues par l’inter- 
préteur Basic (BI) et JSR ERROUT 
($BEO9) entre dans le traitement 
d'erreur Basic (cette méthode très 
simple n'est pas très documentée). 
La liste des paramètres dépend de la 
fonction appelée et est extrêmement 
bien documentée (voir la bibliogra- 
phie). 


La structure d’un volume 
ProDOS 


Un volume ProDOS est donc simple- 
ment une succession de blocs, nor- 
malement 280, sur une disquette 35 
pistes. Cependant tous ne sont pas 
disponibles, en effet le début du vo- 
lume est occupé par 7 blocs spéciaux 
que nous allons analyser. 


e blocs 0-1 : 
Programme en langage machine 
exécuté automatiquement lors du 
boot. Il cherche sur la disquette un 
fichier du nom de PRODOS;: s'il 
ne le trouve pas, il affiche UNA- 
BLE TO LOAD PRODOS et se 
plante (cas d'une disquette de 
données), sinon il le charge en 
$2000 puis saute en $2000. Voir 
la suite des aventures de ProDOS 
lors du boot dans Beneath Apple 
ProDOS par exemple. 

e blocs 2-5: 
Répertoire (directory) du volume. 
Chacun des 4 blocs est composé 
des éléments suivants : 
— 2 octets réalisant le chaînage 
arrière des blocs du répertoire. Ils 
contiennent le numéro du bloc 
précédent ou 0 s'il n'y a pas de 
précédent. 
— 2 octets réalisant le chaînage 
avant … numéro du bloc suivant 
ou 0 si … 
— 13 groupes de 39 octets, cha- 
que groupe décrivant un fichier du 
volume sauf le tout premier des 
52 qui décrit le Volume lui-même. 
Le bloc 2 qui contient ce groupe 
crucial pour l'accès au disque a 
reçu le nom de bloc clé. 

e bloc 6: 
Image logique de l'occupation de 
la disquette (Volume Bit Map). A 
chaque bloc du volume est associé 
un bit dans ce secteur. si le bloc 
est utilisé, le bit correspondant est 
à O, s’il est libre, le bit est mis à 1. 
Le premier octet décrit l’utilisation 
des blocs O0 à 7. Pour une dis- 
quette fraîchement initialisée (pas 
d'autre opération), il doit valoir 1. 
En effet, on vient de voir que les 
blocs 0 à 6 sont occupés, d'où en 
représentant cet octet sur les 8 
bits : 


(voir schéma) 


Remarquez que seuls les blocs 0 à 
2 sont à un emplacement rigide, 
puisque l'accès aux autres se fait 
par l'intermédiaire du bloc 2 (chaï- 
nage des blocs du répertoire et 
pointeur sur le bloc VBM). On 
peut donc déplacer les autres ou 
même les supprimer (sauf évidem- 
ment le VBM !!!). 


(voir tableau 3) 


Le programme 
INIT PRO3.3 


Sa structure est très simple, elle est 
purement linéaire. On a essayé de 
rendre aussi lisible que possible les 
lectures / écritures de blocs et d’ac- 
cepter les options par défaut par un 
simple RETURN. 


Lignes 10 à 70 : initialisation et vérifi- 
cation du volume. On pourrait tester 
si l'opération de mixtage n'a pas déjà 
été effectuée en testant DOS=1 en 
ligne 80. Ce morceau appelle un 
sous programme en 3000 qui assure 
diverses tâches d'intendance : le Bip 
ProDOS tel qu'il est décrit par Apple 
(ProDOS Tech. Man.), mise en place 
de MLICALL (notez que les lignes 
3090 à 3110 mettent en évidence la 
structure d’un appel MLI et permet- 
tent en modifiant les lignes 
3040-3050 de placer le bout de 
code machine n'importe où ailleurs 
que dans l’archi-usée page 3...). 


Lignes 100 à 130: lecture du bloc 
clé (premier bloc du Directory). On y 
trouve successivement : 

e le nom du volume (reconstitué par 
le sous programme en 900), 

e le pointeur vers le Volume Bit 
Map (VBM, normalement = 6 
sauf si l'on a déjà tronqué le Di- 
rectory auquel cas VBM=d4), 

e le nombre de blocs du volume 
(NB, normalement = 280 sauf si 
la disquette a déjà été trafiquée 
auquel cas la valeur de NB est im- 
prévisible...), on en déduit le nu- 
méro de la dernière piste ProDOS 
(PM, normalement = 34). 
Remarquez que le volume à modi- 
fier doit se trouver dans le lecteur 
2, on peut le mettre ailleurs mais il 
faut modifier la valeur de UNIT en 
ligne 3040. 


Lignes 140 à 230 : vous entrez vos 
options. Par défaut, le roi Salomon 
tranche au milieu de la disquette. Si 
le Directory est déjà tronqué. vous 
n'avez pas le choix. il le restera. 

Lignes 240 à 360: mise à jour du 
Volume Bit Map. Si l'on rajoute de la 
place ProDOS sur une disquette déjà 
mixte, on libère les blocs correspon- 
dants (il se peut que l'on perde des 
fichiers DOS 3.3){ligne 260). En 
270-280, on vérifie que la place 
consacrée au DOS 3.3 (c'est-à-dire 





les pistes de P1 à P2 plus la piste ré- 
pertoire) n’est pas déjà occupée par 
du ProDOS. Le sous-programme en 
800 examine l'occupation de chaque 
piste par ProDOS; à la première qu'il 
trouve non vide, il vous le signale et 
vous laisse la possibilité de ne tou- 
cher à rien. Si vous persistez, en 
840, on marque la piste comme oc- 
cupée. C'est indispensable, bien sûr 
pour la piste 17, mais aussi pour les 
pistes situées dans la partie DOS, car 
leurs numéros de blocs dépassent la 
valeur maximale prévue dans le bloc 
clé du volume et si MLI y trouve un 
octet non nul (c'est-à-dire un bloc 
libre), il considère que le Volume Bit 
Map a été détérioré d'où erreur, tra- 
duite par BI en une inexplicable 1/0 
ERROR. 


Le test de la ligne 830, autorise à 
tenter l'expérience sur une disquette 
contenant déjà des fichiers. Il n'y a 
aucune difficulté si aucun bloc n'est 
occupé après le bloc numéro 135. 
Mais si des fichiers existaient sur la 
partie détruite, ils seront détruits phy- 
siquement sur la disquette, mais pas 
dans le répertoire (il faudrait pour 
cela analyser l'intégralité du réper- 
toire et des listes de blocs des fi- 
chiers). De plus, si on essaie malgré 
tout d'y accéder, y compris pour les 
DELETEr, on provoquera une 1/0 
ERROR, car le driver devra aller lire 
un bloc situé au-delà de son dernier 
bloc. Il vaut mieux éviter de poursui- 
vre (option par défaut...) S'il faut 
tronquer le Directory, on libère 2 
blocs en piste O (si ce n’est pas déjà 
fait. ligne 290) et on réécrit VBM à 
son nouvel emplacement. 


Lignes 310 à 360: mise à jour du 
bloc clé, c'est-à-dire du nombre de 
blocs, du pointeur sur VBM: et mise 
à jour du chaînage entre blocs du Di- 
rectory (ligne 360 si nécessaire). 


Lignes 500 à fin : écriture du Direc- 
tory 3.3, VTOC en $11/0. Catalog 
de $11/F à $11/1 au plus. On véri- 
fiera que. quelle que soit la valeur de 
NSC<4 le programme créera un mi- 
nimum de 4 secteurs. 


Booter ProDOS 
et DOS 3.3 


La disquette produite n'est qu'une 
disquette de données, elle ne peut 
booter sous aucun système. 

Booter en ProDOS est très simple. 
il suffit de transférer sur la partie 
ProDOS les fichiers  ProDOS. 
BASIC.SYSTEM et, si l'on veut, un 
programme STARTUP à l'aide du 
FILER. On peut réaliser cela dès l'ini- 
tialisation de la disquette. puisque la 
transformation conserve les premiers 
blocs du volume. Ceci permet de di- 
minuer le nombre de manipulations 
en ne recourant qu'une fois au 
FILER. 
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Booter en DOS 3.3 est bien sûr 

impossible stricto sensu, mais on 

peut le simuler. Pour cela, il est né- 

cessaire d’avoir un fichier ProDOS 

contenant l’image du DOS 3.3. Si 

cela est aisé à l'écriture, on conçoit 

aisément que cela l’est moins à la re- 

lecture. Il faut donc le transférer à un 

autre emplacement mémoire; d’où 

les opérations suivantes : 

e Booter une disquette DOS 3.3 
normale, 

e CALL-151 

e 3000<9D00.BFFFM 
DOS) 

e 3D0G (ou CTRL-C pour revenir 
en Basic) 

e BSAVE DOS 3.3,A$3000,L$2300 
(sur la disquette DOS 3.3) 

e Employer l'utilitaire CONVERT 

pour transférer DOS 3.3 sur la dis- 

quette ProDOS 

Faire les opérations inverses sous 

ProDOS n'est pas possible directe- 

ment (la machine se plante car on 

n'entre à aucun moment dans le 

DOS 3.3 et la page 3 ($3D0 à 

$3FF) n'est pas en place. Il faut 

utiliser le petit utilitaire 

HELLO.OBJ (à implanter sur la 

partie ProDOS). 

e Sous ProDOS : BLOAD DOS 3.3 

e Puis BRUN HELLO.OBJ et nous 
y sommes ! 


Voyons le programme HELLO.OBJ 


— de $300 à $317: retransfert du 
DOS à sa position initiale en $9D00. 
Ces lignes sont équivalentes à la 
commande moniteur : 
*9D00<3000.5300M 
— en $318 et $31A : on supprime le 


(déplace le 


mode TRACE mis discrètement par : 


ProDOS pour ses besoins internes 

— $31C à $325: on implante la 
chaîne de caractères HELLO dans le 
tampon contenant les paramètres des 
commandes DOS. 

— $327 et fin : on rentre à froid dans 
le DOS (DOS coldstart), après lui 
avoir fait croire que la dernière 
commande exécutée (en $AA5F) par 
lui était INIT ce qui est son'état nor- 
mal lorsqu'il vient d'une disquette 
normalement initialisée. Ayant vérifié 
la chose, le démarrage à froid du 
DOS met en place les vecteurs de la 
page 3 et cherche à exécuter un pro- 
gramme du nom de HELLO (pro- 
gramme situé évidemment sur la par- 
te DOS 3.3 de la disquette). S'il n'y 
a pas de HELLO, on obtient le clas- 
sique FILE NOT FOUND, mais on 
est quand même en DOS 3.3. 


On pourra trouver un exemple de 
boot DOS 3.3 dans le court pro- 
gramme (ProDOS) HELLO joint. 


Bibliographie 


Pour la description des formats des 
Secteurs (respectivement blocs) des 
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Source Toolkit Programme MLICALL.SCE 
SOURCE FILE: MLICALL.SCE 


0000: 1 LST NOA 

0000: PARLEICEET EST ETE TEE STE TETE TETE ETTSETEST) 
0000: 3%  Routine d’appel de MLI à partir du BASIC 
0000: CMETECTEEE ET TT TES TT TESTÉES STE 
———— NEXT OBJECT FILE NAME 1S MLICALL.SCE.0BJ0 

0300: ÿ OR6 $300 

0300: 4 3 

0080: 7 LIT EQU $80 

0081: 8 ECRIT EQU $81 

0300: 9 + 

0003: 10 LEN EQU $3 

00E0: 11 UNIT  EQU $E0 (drive 2; pour drive 1:$60) 
2000: 12 BUFFER EQU $2000 

0002: 13 BLOC  EQU $2 

BE8B: 14 BADCALL EQU $BE8B 

BE09: 15 ERROUT EQU $BE09 

BF00: 16 MLI EQU $BF00 

0300: 17 3 

0300:20 00 BF 18 JSR MLI 

0303:80 19 CODE  DFB LIT 

0304:10 03 20 DU  PARLST 

0306:90 06 21 BCC OK 

0308:20 8B BE 22 JSR BADCALL 

030B:20 09 BE 23 JSR  ERROUT 

030E :60 24 OK RTS 

030F :00 2 BRK 

0310:03 26 PARLST DFB LEN 

0311:E0 27 DFB UNIT 

0312:00 20 28 DW BUFFER 

0314:02 00 29 DU BLOC 


#44 SUCCESSFUL ASSEMBLY: NO ERRORS 





Schéma 
octet n° (# 1 et les 33 suivants 
jusqu’au n°34 inclus 
0000 0001 1111 1111 
bit: 7654 3210 7654 3210 
bloc: 0123 45467 89AB CDEF 


————————— 
TABLE 3 


TABLE 3: 
Contenu d’un groupe de 39 octets. 
description d’un fichier d’un volume 


(ler groupe bloc 2) 


rang de l’octet 
dans le groupe 


0 trpe de stockage, longueur du nom 

1-15 nom de l’élément décrit 
lé type du fichier I 

17-18 bloc clé du fichier I inutilisé (8 fois 0) 

19-20 nombre de biocs utilisés I 

21-23 nombre d’octets dans le fichier I 

24-27 date-heure de création (cf. DATE ProDOS, POM‘S) 
28 n° version ProD0S utilisé lors de la création 
29 n° version ProDOS minimal requis pour ce fichier 
30 accès autorisés (lecture, écriture, destruction) 


31 [I adresse de chargement longueur des groupes (39) 


32 I ou longueur d'enregistrement I nbe groupes par bloc(13) 
33-34 date dernière modification I nombre de groupes actifs 
35-346 heure dernière modification I N* bloc VEBM (normt 6) 
37-38 bloc clé du répertoire Î nombre total de blocs 


RARE a tai À Ru AE ENS 
LR DNS D à à 1 PORT 


Directories ou du VTOC (respective- Manuel du DOS (Apple) P.Lechner, QS) 
ment VBM), on se reportera aux ma- ProDOS Technical Reference Manual Beneath Apple ProDOS (D.Worth et 





nuels Apple ou à leurs compléments (Apple) P.Lechner, QS) 
de Quality Software : Beneath Apple DOS (D. Worth et = 
Source Toolkit 0315:20 2C FE 28 JSR MOVE 
0318: 29 # 
Programme HELLO 0318:42 00 30 LDX £0 
0314:86 F2 31 STX TRACE 

SOURCE FILE: HELLO.SCE 031C:BD 2F 03 32 LOOP LDA HELLO,X 
0000: Î LST NU 031F:90 75 M 33 STA NAME ,X 
0000: PRIT 1111 III III LITE 0322:E8 34 INX 
0000: 3 # coexistence de D0S3.3 et Pro-D0S 0323:C9 A0 35 MP E$AO 
0000: PRTTITIII TITI IIIIII IEEE SIL 0325:D0 F5 36 BNE LOOP 
——— NEXT OBJECT FILE NAME 1S HELLO.SCE.0BJO … pi s< pl : . sh 
0300: 5 ORG6 $300 ; 
0300: é # 032C:20 EA 9D 39 JSR DOSBOOT 
003C: 7'AI EQU 430 032F: 40 

g A2 EQU 43€ 032F: 4i MSB ON 

9 A4 EQU #42 032F:C8 C5 CC 42 HELLO ASC HELLO 

10 TRACE EQU $F2 0332:CC CF A0 

11 # 

12 DOSBOOT EQU $9DEA #44 SUCCESSFUL ASSEMBLY: NO ERRORS 


13 CMD EQU  $AASF 
14 NME  EQU 44475 








16 # 
17 LOX £0 
18 SIX AI Programme DEBUT 
19 STX A4 
20 DEX 100 D$ = CHR$ (4): PRINT D$;"BLOAD DOS3. 
21 STX 42 3* 
22 LDA £$30 110 ONERR GOTO 200 
HE 73 STA Ai+] 120 PRINT D$;"BRUN HELLO.OBJ" 
ic 030D:49 52 24 LDA £452 200 IF PEEK (222) = 6 THEN PRINT CHR$# 
à " (7): PRINT "Pas de programme HELL 
«03:85 25 STA A241 0!" 
FA 0311:A9 9D 26 LDA £$9D 210 PRINT : PRINT "Vous etes en DOS 3.3° 
4 0313:85 43 27 STA Ad+i 220 NEW 
Programme INITPRO3.3 100: CREM = res =s Directory ProD 
CS =-=m—————— 
102 REM 
104 REM --------------—- Lecture Key-Blo 
10 HOME :00 = 2Sé6:FF = 00 -— 1 ck 
20 DEF FN HICX) = INT (X / 00): DEF F 110 POKE CODE,LIT: POKE BLOC,2: CALL MLI 
N LOCX) = X - O0 * INT (X / 00) 120 R = BU + 4: GOSUB 900:VOL$ = N$ + "/* 
30 DEF FN W(X) = PEEK (X) + 00 *  PEEK 130 VBM = FN WC(BU + 39):NB = FN WCBU + 
CX + 1) 41):PM = INT ÇC(NB - 1) / 8) 
40 DEF FN PISTECX) = BU + 56 + 4 x X 140 PRINT : PRINT “Vous allez transforme 
50 DIM TY#(2):TY#$#(0) = “DOS3.3":TY$(1) = r ";VOLS 
“"ProDOS":TY$(2) = “Pascal” 150 PRINT * en mixte ProDOS-D0S 3.3" 
60 (GOSUB 3000: REM Initialisation 160 PRINT : PRINT "1 dre piste DOS 3.3 e 
70 IF TYPE < > 1 THEN PRINT : PRINT *C n nl: 17";: HTAB 27: INPUT R$:P1 = 
e n’est pas une disquette ProDOS": VAL CRD: IF R$ = *"" THEN P1 = 1 
CALL BELL: GOSUB 3120: GOTO 70 7 
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VTAB PEEK (37): HTAB 28: PRINT Pi 
IF P1 < O OR P1 > 34 THEN CALL BELL 
: PRINT “nl piste hors limite !": 

GOTO 160 
P2 = 34: IF PM > P2 THEN P2 = PM 
IF VEBM < 6 THEN TR = 1: GOTO 220 
PRINT : PRINT "Tronquer le Directory 
ProDOS ?N°";: HTAB 31: GET R$: PRI 
NT R$: IF R$ = "OC" THEN TR = 1 
PRINT : PRINT "Nbe Secteurs Director 
y DOS 3.3: 15";: HTAB 32: INPUT R$ 
INSC = VAL CR$)D: IF R$ = "" THEN 
NSC = 15 
VTAB PEEK (37): 


HTAB 33: PRINT NSC 


ume-Bi t-Map 
POKE BLOC,VUBM: CALL MLI 
IF PM < Pi THEN FOR P = 
1: POKE BU + P,FF: NEXT 
FOR P = Pi TO P2: GOSUB 800: NEXT 
P = 17: GOSUB 800 
IF TR THEN POKE BU, PEEK (BU) + 6 * 
CUBM = 6) :UBM = 4 
POKE BLOC,VBM: POKE CODE,ECRIT: CALL 
MLI 


Mise 3 Jour Vol 


PM TO P1 - 


—Block 
POKE CODE,LIT: POKE BLOC,2: CALL MLI 
POKE BU + 39,VEM 
NB = 8 *x Pi: POKE BU + 41, FN LO(NB): 
POKE BU + 42, FN HICNB) 
POKE CODE,ECRIT: CALL MLI 
:: IF TR THEN POKE BLOC, FN WCBU + 2 


Mise 9 Jour Key 


>: POKE CODE,LIT: CALL MLI: POKE B 
U + 2,0: POKE BU + 3,0: POKE CODE, 
ECRIT: CALL MLI 

REM === Directory DOS 3 
a D. PES sr ssse 

REM 

REM === ss Ecriture secte 
urs Directory ; 

FOR 1 = O0 TO S11: POKE BU + 1,0: NEX 
F 


POKE CODE,ECRIT 


POKE BU + 257,17: POKE BU + 258,14: 
POKE BLOC,143: CALL MLI 

IMIN = 1:0C = 0:F = 0 

IF NS € 15 THEN IMIN = 7 - INT C(NS 
- 1) / 2):0C = 16382:F = 12288 

FOR I = 6 TO IMIN STEP - 1 

::0C = OC - F:F = F / 4 

1t:FIN = CI € = IMIN) AND (NSC € 15) 

:: POKE BU + 1,17: POKE BU + 257,17 * 

NOT FIN 

:: POKE BU + 2,2 * I: POKE BU + 258,4 
2 # I - 1) % NOT FIN 

:: POKE BLOC,143 - I: CALL MLI 

NEXT 

REM Cr£ation UTOC 

POKE BU + 2,15: POKE BU + 257,17: PO 
KE BU + 258,13 

POKE BU + 3,3: POKE BU + 6,FF - 1 

POKE BU + 39,122: POKE BU + 48,16: P 


OKE BU + 49,1 


930 
3000 


3010 


3020 


3030 
3040 
3050 
3060 
3070 
3080 
3090 


3100 


3110 


3120 
3130 
3140 
3150 


3160 
3170 


3180 


POKE BU + 52,P2 + 1: POKE BU + 53,16 
: POKE BU + 55,1 

FOR I = P1 TO P2 

:: POKE FN PISTE(I),FF: POKE FN PIS 
TECID + 1,FF 

NEXT 

POKE FN PISTE(17), FN HI(OC): POKE 
FN PISTE(17) + 1, FN LO(OC) 

POKE BLOC,136: CALL MLI 


Bar de la dernidre chance 


IF ( PEEK (BU + P) = 
GOTO 840 
:: PRINT : PRINT : INVERSE : PRINT "A 
TTENTION" ;: NORMAL : CALL BELL: PR 
INT * Vous risquez de d{truire de 
s donnes de ";VOL$: PRINT 
:: PRINT “Voulez-vous continuer ?N°3: 
HTAB 24: GET R$: PRINT R$ 
::0K = 1: IF R$ < > “O" THEN END 
POKE BU + P,0 
RETURN 
REM ---- champ Nom 
L = PEEK (R):ST = 
L.— 16 # ST 
N$ IF ST = 15 THEN N$ = */" 
FOR J = 1 TO L:N$ = N$ + CHR$ ( PEE 
K CR + J)): NEXT 
RETURN 


FF) OR OK THEN 


INT (L / 16):L = 


Bip-Bip ProDOS ! -- 
BELL = 816: FOR I = 0 TO 21: 
POKE BELL + I,X: NEXT 
DATA 162,32,149,2,32,168,252,141, 

48,192,169,36,32,168,252,141,48,19 
2,202,208,237,9é6 
REM 
on Appel MLI ------—_—_———…_—_——— 
MLI = 768:BUFFER = 8192:UNIT = 224: 
REM Drive 1:96 --- Drive 2:224 
PA = 784:BLOC = PA + 4 
CODE = MLI + 3:LIT = 128:ECRIT = 129 
FOR I = O0 TO 21: READ X: POKE MLI + 
1,X: NEXT 
DATA 32,0,191,128,16,3,144,6,32,139 
5190,32,9,190,96,0,3,224,0,32,2,0 
POKE MLI + 4, FN LOCPA): POKE MLI + 
5, FN HI(PA) 
POKE PÂ,3: POKE PA + 1,UNIT: POKE P 
À + 5,0 
POKE PA + 2, FN LOCBUFFER) : 
+ 3, FN HICBUFFER) 
REM Identification Dis 
quette 
PRINT “Disquette —--}> Drive 2. OK?"; 
: GET R$: PRINT * OK* 
POKE BLOC,136: CALL MLI 
DOS = ( PEEK (BU + 3) = 3) 
POKE BLOC,2: CALL MLI 
TYPE = ( PEEK (BU + 2) AND NOT PEE 
K (BU + 3)) x ( NOT PEEK (BU + 4) 
+ 1) 
RETURN 


READ X: 


POKE PA 


D 
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Saisie de variables par écran 


Gérard Michel 


La saisie de données reste souvent 
un sujet de préoccupation pour le 
programmeur, notamment en raison 
des insuffisances de l'instruction 
INPUT du Basic. Pom's vous a d’ail- 
leurs déjà proposé, sous des formes 
plus ou moins complètes et 
complexes, de nombreuses routines 
de saisie-clavier. 


Ces différentes routines, en Applesoft 
ou en assembleur, reposaient généra- 
lement sur un même principe de 
fonctionnement : analyse et contrôle 
des caractères entrés au clavier, puis 
affectation au contenu d’une variable 
à l'issue d’une session de frappe, 
marquée, par exemple, par un RE- 
TURN. 

Elles pouvaient également comporter 
une gestion de la position du curseur 
à l'écran, en fonction des variables à 
saisir, au moyen de HTAB et VTAB, 
ou de traitements équivalents en lan- 
gage machine. 


La solution présentée ici procède 
d’une autre démarche, articulée en 
trois étapes : 

e Saisie de caractères au clavier, 
avec rejet des éventuels ‘’parasi- 
tes”, caractères de contrôle en 
particulier. 

Affichage pur et simple des carac- 
tères valides à l'écran. 

A l'issue de la saisie, détectée lors 
de la frappe de la touche ESC, 
analyse du contenu de l'écran 
pour y reconstituer les différentes 
données et les affecter aux varia- 
bles. 


Ce mode de saisie peut présenter 
certains avantages, tant pour le pro- 
grammeur (pas de gestion complexe 
d'écran à définir et à réviser en fonc- 
tion des ‘erreurs et omissions"), que 
pour l'utilisateur (saisie, sous réserve 
du respect de certaines règles, en 
n'importe quel endroit libre de 
l'écran, possibilité de se déplacer en 
permanence sur tout l'écran pour y 
modifier des données, sans risque 
pour les variables..….). 


Principes 
d'utilisation 


Il vous faudra tout d'abord définir les 
libellés devant apparaître en regard 
des données à fournir. À chaque va- 
riable doit correspondre obligatoire- 
ment un libellé, aussi bref soit-il, mais 
il peut y avoir en revanche plus de 
libellés que de variables (pour un 
titre d'écran, par exemple). 

Ces libellés seront ensuite affichés sur 
un écran vierge par tous moyens à 
votre convenance, tels les simples 
ordres PRINT utilisés dans notre pro- 
gramme d'illustration. 


LORRAINE 


23 # Source Big Mac 
3 # SAISIE ECRAN APPLE //E-C + 

. » (BIG MAC) » Programme IPE2.S 
Ê HÉSHIHIIEMIIHEHIIHEIIITHIIIIE 

7 

8 

9 OR6 $9000 

10 OP £$5D CARACTERE "6" ? 

11 BEQ SO 

12 CMP £$34 TRAITEMENT CHRGET STANDARD 

13 BCC Si 

14 RTS 

15 Si MP $8E 

1é S0 LDA 60 3RECHERCHE DES LIBELLES À L'ECRAN 
17 STA #25 

18 54 JSR $FBCI ;CALCUL ADRESSE BASE DE LA LIGNE 
19 LDY £0 

20 53 LDA (#28),Y 

21 OP £$A0 ;"ESPACE" ? 

2 BEQ S2 ;OUI --} PAS DE CHANGEMENT 

23 OP  £$DF RE 

24 BEQ 52 

25 CMP £$40 3CARACTERE DEJA EN INVERSE ? 

26 BCC 52 3QUI —} PAS DE CHANGEMENT 

27 AND £$3F 3 TRANSFORME NORMAL EN INVERSE 
28 STA ($28),Y 

29 S2 INY 

30 CPY 1528 FIN DE LIGNE ? 

31 BNE 53 

32 INC $25 3LIGNE SUIVANTE 

33 LDA $25 

34 OP £$18 351 L'ECRAN N’EST PAS TERMINE 
35 BNE 54 

36 JSR $Bl 3OCTET SUIVANT 5 DANS LE PROGRAMME 
37 OP £’S’ 

38 BEQ S5 

39 O# £’D’ 

40 BEQ S5 

41 S6 JSR $F399 

42 MP  $DEC9 ;"SYNTAX ERROR" 

43 55 STA $6 ; SAUVEGARDE OCTET COMMANDE 

44 JSR 48! ;OCTET SUIUANT 

45 JSR $F709 3RECHERCHE DU TABLEAU DE VARIABLES 
46 LDA #98 

47 STA $%7 ; SAUVEGARDE DE SON ADRESSE 

48 LDA $9C 

49 STA $8 

50 LDY £0 

si LDA ($7),Y 31ERE LETTRE DU NOM DU TABLEAU 
52 BNI 5Sé 5DOIT ÊTRE EN ASCII POSITIF 

53 INY 

54 LDA (47),Y  32EME LETTRE 

55 BPL 54 ;5DOIT ETRE EN ASCII NEGATIF 

56 LDY £4 

57 LDA (47),Y 

58 O# fi :TABLEAU À 1 SEULE DIMENSION 

59 ENE Sé 3SINON —-) ERREUR 

60 INY 
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Concernant chaque variable, il fau- 
dra en outre en préciser : 


e la longueur (si cette dernière n’est 
pas pertinente pour vos traite- 
ments, fixez-la à 255 caractères): 

e le type : O pour des données al- 
phanumériques, 1 pour des don- 
nées numériques. 


Les longueurs seront stockées dans 
un tableau d’entiers à une seule di- 
mension (baptisons-le TL%), et les 
types dans un autre tableau de 
même nature (soit TT%, par exem- 
ple). Quant aux données  elles- 
mêmes, elles seront affectées dans 
un tableau de chaînes de caractères 
(TV$, par exemple). 

Ces trois tableaux doivent avoir un 
nombre d'éléments identique et il est 
préférable de les dimensionner en 
conséquence avant toute opération 
de saisie. 


Une fois les différents tableaux défi- 
nis, les longueurs et types chargés 
(par l'intermédiaire de DATAs ou par 
tout autre moyen) et les libellés affi- 
chés, vous disposez de deux instruc- 
tions pour réaliser la saisie : 

eo :JSTVETLATT% 

e :JDTVS.TLATT% 


L'instruction :]S.. permet une saisie 
pure et simple : le tableau de varia- 
bles est considéré comme ‘vide” et il 
faut entrer autant de données qu'il y 
a d'indices dans ce tableau. 


L'instruction :]D.. en revanche, affi- 
che d'abord le contenu du tableau 
avant de passer à la phase de saisie. 
Seuls les éléments à modifier nécessi- 
tent alors une nouvelle frappe. Cette 
instruction peut d’ailleurs servir dans 
un but de consultation des données, 
sans altération de leurs valeurs. 


Le caractère ”]"” constitue l'identifica- 
teur de nos ordres de saisie: il est 
obligatoire et doit toujours être pré- 
cédé de ”:”, même s’il vient en tout 
début de ligne ou après un THEN. 


Fonctionnement 
de la saisie 


Dès qu'elle rencontre un caractère 
"]”, la routine commence par explo- 
rer l'écran pour y trouver les libellés 
et les transformer de NORMAL en 
INVERSE. Les données étant ensuite 
affichées en NORMAL, cette diffé- 
rence de mode vidéo permettra de 
les distinguer des libellés. 

Il est préférable de ne pas mettre 
d'espaces à l'intérieur des libellés et 
de les remplacer, par exemple, par 
des points. 

Si vous le souhaitez, vous pouvez in- 
diquer à l'écran la longueur maxi- 
male autorisée pour une donnée en 
affichant, à la suite du libellé corres- 
pondant, un nombre égal de caractè- 
res ‘souligné” (code clavier #$DF). 
Ces caractères seront traités comme 
des espaces par la routine et reste- 
ront en mode NORMAL. 
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Sé 


(#98) ,Y 


(898) ,Y 
$iA 
KI 


(898) ,Y 
#19 
K! 


598 


3 SAUVEGARDE NOMBRE D’ELEMENTS 


;DANS LA DIMENSION 


1$7-48 POINTE SUR LE ER 
ELEMENT DU TABLEAU 
ITESTE *," AVANT LE 


DEUXIEME TABLEAU 
3SINON --} ERREUR 


3TRAITEMENT DES TABLEAUX 
3DE *LONGUEURS" ET "TYPES" 


;TABLEAU ENTIER —) LES DEUX 
ÿLETTRES DOIVENT ETRE EN ASCII NEGATIF 


3SINON --} ERREUR 


;TABLEAU À 1 DIMENSION SEULEMENT 


{LE NOMBRE D'ELEMENTS DOIT ETRE 
LE MEME QUE POUR LE TABLEAU 
1DE VARIABLES À SAISIR 


1$EB-4EC POINTERA SUR LE POIDS FAIBLE 
ÿDE LA VALEUR DU PREMIER ELEMENT 
;DU TABLEAU DES LONGUEURS 


iTESTE *," AVANT LE TABLEAU DES "TYPES" 


:MEME TRAITEMENT QUE POUR LES LONGUEURS 


1SED-4EE POINTERA SUR LE POIDS FAIBLE 
3DE LA PREMIERE UALEUR 


DU TABLEAU DES TYPES 


13 


14 


Après inversion des libellés, la main 
est donnée à l'utilisateur pour la sai- 
sie proprement dite. Le curseur est 
initialement placé en haut à gauche 
de l'écran; il est possible de le dépla- 
cer en tout point avec les quatre flè- 
ches de direction. 

Au niveau des caractères entrés, la 
routine procède aux contrôles sui- 
vants : 

— Pas d'affichage autorisé sur les li- 
bellés : seules les parties d'écran en 
NORMAL (vierges ou non) sont ad- 
mises pour la saisie / affichage. 

— Pas de caractères de contrôle, ni 
de ”:”, ”;” ou guillemets, les virgules 
étant pour leur part remplacées par 
des points (problème des caractères 
séparateurs et des quillemets avec les 
ordres PRINT). 


Chaque donnée doit se terminer par 
un RETURN. La frappe de cette tou- 
che se traduit à l'écran par l'affichage 
d'une barre oblique (dans le sens in- 
verse de ‘/” - code clavier #$DC). 
En clavier QWERTY, vous pourriez 
utiliser la touche correspondant à 
cette barre oblique directement, en 
lieu et place de RETURN. 

Il s’agit là d’un simple séparateur de 
données : il s'affiche mais ne provo- 
que aucun autre déplacement du 
curseur que celui occasionné par les 
autres touches. 


Il n'est nullement indispensable de 
saisir les valeurs exactement en re- 
gard des libellés qui leur sont liés, 
sauf si vous avez besoin de vous pla- 
cer sur les éventuels ‘”’soulignés” 
pour être sûr de ne pas dépasser les 
longueurs prévues. 

Ainsi, si vous disposez ‘quelque 
part” d'un nombre suffisant de posi- 
tions libres contigües à l'écran, vous 
pouvez saisir toutes les données re- 
quises en continu (à la suite les unes 
des autres), à condition de terminer 
chacune d'elles par un RETURN et 
de bien taper autant de RETURN 
que de données attendues (nombre 
d'éléments dans le tableau des varia- 
bles). À noter que, comme à l’habi- 
tude, une donnée ‘vide” se traduit 
par la frappe d'un simple RETURN. 
Par exemple : 


D1 puis RETURN et RETURN 


donnera ”’D1” comme valeur pour le 
premier élément du tableau et ”” 
pour le second (chaîne vide). 


En résumé, dès lors que vous respec- 
tez l'ordre des données {entrée dans 
l'ordre des indices croissants du ta- 
bleau) et que vous terminez chacune 
par un RETURN, vous pouvez les 
saisir en n'importe-quel endroit auto- 
risé de l'écran, individuellement, en 
un seul bloc, ou en sous-ensembles 
continus. 


La frappe de la touche ESC marque 
la fin de la phase de saisie et déclen- 
che l'analyse de l'écran par la rou- 
tine, qui comporte les contrôles sui- 
vants : 


JSR 
LDY 


AE 


ÉREÉRLELEEREETEEELEEEEELIEETEE 


ARSISUSESEST TM 


8 


REPRISE DU TRAITEMENT DES COM#ANDES 


ON COMMENCE EN HAUT DE L'ECRAN 
SAUVEGARDE DE L'OCTET SOUS LE CURSEUR 
3SAISIE AU CLAVIER 

3Y=POSITION HORIZONTALE 

3X=POSITION VERTICALE 

;FLECHE VERS LE HAUT ? 


;VERIFIER SI L’ON PEUT "REMONTER* 


; VTAB 
;FLECHE VERS LE BAS ? 


VERIFIER SI ON PEUT “DESCENDRE" 


:FLECHE VERS LA DROITE ? 


;PEUT-ON ALLER À DROITE ? 


;FLECHE VERS LA GAUCHE ? 


ÿPEUT-ON ALLER À GAUCHE ? 


"ESC" ? 
;OUI —) SORTIE POUR ANALYSE DE L'ECRAN 


PAS D’ECRITURE SUR LES LIBELLES EN INVERSE 


351 *RETURN® --} AFFICHER "ç" (£$DC) 
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— Vérification de la longueur des 
données par rapport aux longueurs 
maximales déclarées dans le tableau 
adéquat; si une donnée “déborde”, 
un crochet en FLASH est affiché à sa 
suite (il écrase le RETURN) et la rou- 
tine reprend une phase de saisie 
pour correction. 

À noter que tous les espaces compris 
entre les caractères d'une même 
donnée comptent dans sa longueur, 
alors que ceux qui se trouvent à l’ex- 
térieur (entre un RETURN et le pre- 
mier octet de la valeur suivante, par 
exemple), sont ignorés. 


— Pour les données de type numéri- 
que, les caractères autorisés sont : les 
chiffres, ”.”, ”-7 "+7 et ”/”, Aucun 
espace, ni souligné”, n'est autorisé 
à l'intérieur d'une valeur numérique. 
Si on trouve un caractère non 
conforme, il est écrasé par une ‘’*” 
en FLASH et la saisie reprend. 


— Jamais de données comptant plus 
de 255 caractères: dans le cas 
contraire, un ”’]” en FLASH est affi- 
ché à la fin de la donnée trop longue 
et la saisie reprend dans les mêmes 
conditions que ci-dessus. 


— Exactement autant de RETURNSs 
que de variables attendues, ni plus, 
ni moins. Sinon, reprise de la saisie, 
accompagnée d’un beep. 


Si tous ces contrôles sont satisfaits, la 
routine procède directement à l’affec- 
tation des chaînes de caractères au 
tableau de variables défini en entrée, 
à partir de l'élément d'indice 0. Les 
données sont alors utilisables par 
toutes instructions Basic ou DOS. 


Particularités du 
pré-affichage 


Lors d’une instruction :]JD T$.. , la 
routine affiche le contenu des varia- 
bles de T$ avant de passer à la sai- 
sie. Pour ce faire, elle cherche à loca- 
liser des libellés en partant de la fin 
de l'écran (en bas à droite) et s’ar- 
rête dès qu'elle atteint le début de 
l'écran ou qu'elle trouve autant de li- 
bellés que de données à afficher. 

De ce fait, il convient de placer les 
autres textes éventuels en haut 
d'écran et de n'’afficher ensuite que 
des libellés ”’utiles”. 

Les données sont restituées dans 
l'ordre croissant des indices, en re- 
gard et à la suite des libellés corres- 
pondants. Le RETURN final est auto- 
matiquement ajouté à la fin des 
caractères. 

Si vous n'avez pas mis assez de 
textes à l'écran, vous obtiendrez une 
SYNTAX ERROR lorsque la routine 
tentera d'afficher les valeurs. 


La saisie est identique pour :]S 
et:]D. Pour cette dernière, toutefois, 
il peut être bon d'entrer les nouvelles 
valeurs ”sur” les anciennes, en les 
écrasant, plutôt que de les mettre 
dans une partie vierge de l'écran, et 
ce afin de ne pas laisser à l'affichage 
plus de données qu'il n’en faut. 
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HELELEPEEEEELFELE 


5 


SSSeS 


S 
< 


BESSSESESHES84HSE 


FE LE 


(828) ,Y 


AFFICHE LE CARACTERE SAISI 


3PAS DE CARACTERES DE CONTROLE 


3PAS DE ” 
PAS DE : 


PAS DE ; 


3REMPLACE LES VIRGULES PAR DES POINTS 
ANALYSE DE L'ECRAN 


;RECOPIE DE TOUS LES PARAMETRES 
DANS DES 20NES DE TRAVAIL 


3MENORISE LE TYPE DE LA PREMIERE DONNEE 


;NOMBRE DE DONNEES TROUVEES SUR L'ECRAN 
;CONTROLERA L'USAGE DES ESPACES 


3CONTROLERA L'USAGE DES "_* 


iLES CARACTERES INVERSE NE SONT PAS DES DONNEES 
;"RETURN" À L'ECRAN ? 


255 CARACTERES DEJA LUS POUR UNE MEME DONNE ? 
"ESPACE" ? 


TYPE ALPHANUMERIQUE --) OK 


ACCEPTE LE + 


15 


16 


Par ailleurs, si vous souhaitez inciter 
à une saisie initiale en regard des li- 
bellés et non en continu, vous pou- 
vez initialiser votre tableau de varia- 
bles en ne lui affectant que des 
chaînes vides et utiliser une instruc- 
tion :]JD plutôt que:]S. Le pré-affi- 
chage de tous les RETURNSs juste 
après les libellés correspondants 
constituera une contrainte de posi- 
tionnement pour l'utilisateur. 


Mode d’emploi 


Il convient de placer les instructions 
suivantes en tête de votre pro- 
gramme Basic d'exploitation : 


e BLOAD IPE2: chargement de la 
routine de saisie en $9000. 

e BLOAD INTER: mise en place 
dans CHRGET ($B1) d’un aiguil- 
lage sur notre routine IPE2, afin 
de détecter les ”’]” d'identification 
éventuels dans le programme Ap- 
plesoft. Ce second BLOAD ne 
doit jamais venir avant celui de 
IPE2, sous peine de résultats im- 
prévisibles... 


Pour revenir au Basic standard, il 
suffit de charger par un BLOAD le 
petit fichier baptisé CHRGET. 


Telle qu’elle vous est présentée ici, 
cette routine de saisie d'écran est 
susceptible de nombreux perfection- 
nements. On peut songer, par exem- 
ple, à un alignement automatique sur 
le libellé suivant lors de la frappe 
d'un RETURN, ou à une adaptation 
pour carte 80 colonnes, à l'emploi de 
touches de fonction pour détruire ou 
insérer des caractères. Si le sujet 
vous intéresse, à vous de jouer... 





INTER 
*BA . BD 


OOBA- 4C 00 90 


CHRGET 
*BA.BE 


0O0BÂ- C9 34 B0O OA 





IPE2 


#7000.9305 


9000- C9 SD F0 08 C9 34 90 01 
9008- 60 4C BE 00 A9 00 85 25 
9010- 20 Ci FB AO 00 B1 28 C9 
9018- AO F0 OC C9 DF F0 08 C9 
9020- 40 90 04 29 3F 91 28 C8 
9028- CO 28 D0 E9 Eé 25 AS 25 
9030- C9 18 DO DC 20 Bi 00 C9 
9038- 53 FO OA C9 44 F0 06 20 
9040- 99 F3 4C C9 DE 85 06 20 
9048- B1 00 20 D9 F7 AS $B 85 


247 EI! 
248 


32% 


BSSÉRBEIAIREMIITIERSESAGAEERSIECESES 


SEAS4S 


= 
[77] 
z 


BSSBRRSASERRSECNZ 


(8F9),Y 
E60 
E60 
$1F 
E50 


3RIEN EN DESSOUS DU "-" 
;ERREUR DE TYPE —} AFFICHE UNE # EN FLASH 


3BEEP ! 
ÿREPREND LA SAISIE AU DEBUT 


ÿAU DESSUS DE “:" --) ERREUR DE TYPE 
;ON NE PREND PAS LES "ESPACES" HORS DES DONNEES 
ÿPAS D'ESPACE À L'INTERIEUR DES NOMBRES 

;ON NE PREND PAS LES *_" HORS DES DONNEES 


ÿPAS DE "_" DANS LES NOMBRES 


ÿSTOCKE LE CARACTERE DANS LE BUFFER DE DONNEES 


ÿPASSAGE AU CARACTERE SUIVANT SUR L'ECRAN 


iL'ANALYSE DE L'ECRAN EST TERMINÉE... 


1$1B-#1C DOIT TOUJOURS ETRE INFERIEUR 
À $19-41A PUISQUE L’ON COMPTE LES 
DONNEES À L'ECRAN À PARTIR DE 0 


;PLUS DE DONNEES QUE DE VARIABLES --) ERREUR 


;DONNEE TROP LONGUE --} AFFICHE UN 5 EN FLASH 


;ET REPREND LA SAISIE 
3 SAUVEGARDE LA VALEUR DE Y 


ÿCONTROLE LONGUEUR" LUE PAR RAPPORT 
;À “LONGUEUR MAXI® POUR LA DONNEE 


3SIGNALE LE DEPASSEMENT ET REPREND LA SAISIE 


{PASSE À LA LONGUEUR DE LA DONNEE SUIWNTE 


3PASSE AU TYPE DE LA DONNEE SUIVANTE 
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9050- 
5058- 
9060- 
9068- 
9070- 
9078- 
5080- 
5088- 
9090- 
5098- 
90A0- 
90A8- 
5080- 
°088- 
90c0- 
s0c8- 
9000- 
°008- 
90E0- 
90E8- 
90F0- 
°0F8- 
9100- 
°108- 
9110- 
9118- 
9120- 
9128- 
9130- 
9138- 
9140- 
9148- 
9150- 
9158- 
9160- 
9168- 
9170- 
9178- 
9180- 
9188- 
9190- 
7198- 
F1A0- 
9148- 
9180- 
°188- 
91c0- 
91c8- 
91D0- 
?108- 
91E0- 
91E8- 
91F0- 
91F8- 
9200- 
9208- 
9210- 
9218- 
9220- 
9228- 
9230- 
9238- 
9240- 
9248- 
9250- 
9258- 
9260- 
9268- 
9270- 
9278- 
9280- 
°288- 
9290- 
9298- 
92A0- 
92A8- 
9280- 
5288- 
92C0- 
92C8- 
9200- 
9208- 
92E0- 
92E8- 
92F0- 
92F8- 
9300- 
°308- 
9310- 
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08 


354 E100 


$6 
($1D),Y 
E7 


$6F 
($1D),Y 


$6F 
($1D),Y 


$70 
(#1D),Y 


($6F),Y 


$6 
E7 


3STOCKE LE TYPE 


; SAUVEGARDE LONGUEUR REELLE 


ÿLA STOCKE DANS LA ZONE DES TABLEAUX 
{LONGUEUR = 0 --} PAS DE “CHAINE" À STOCKER 


iMISE À JOUR DU POINTEUR DE FIN DE LA ZONE 
;DE STOCKAGE DES CHAINES DE CARACTERES 


3STOCKE L'ADRESSE DE LA CHAINE AU NIVEAU DE 
ÿL'INDICE CONCERNE DANS LA ZONE DES TABLEAUX 


3 TRANSFERT DE LA CHAINE DANS LA ZONE DE 
STOCKAGE APRES REMISE EN ASCII POSITIF 


MISE À JOUR DU NOMBRE DE DONNEES LUES 


REMISE À LA VALEUR INITIALE DES PARAMETRES 


ADRESSE DE L’ELEMENT SUIVANT DU TABLEAU 
55’IL EN RESTE À SAISIR 


PASSAGE AU CARACTERE SUIVANT SUR L'ECRAN 


jA CE NIVEAU, LE COMPTEUR DE VALEURS LUES 


;EST MAJORE DE 1 ET DOIT DONC ETRE EGAL 
;AU NOMBRE DE DONNEES ATTENDUES 


3REND LA MAIN AU BASIC 
REPRISE POUR AFFICHAGE ET SAISIE D'UN TABLEAU 


3RECHERCHE DES LIBELLES À PARTIR 
ÿDU BAS DE L'ECRAN 


18 


9318- Eé 25 84 24 A9 00 85 1B 
9320- 85 1C ÀS 07 85 1D ÀS 08 
9328- 85 1E A0 00 A2 00 B1 1D 
9330- 85 06 FO 18 C8 B1 1D 85 
9338- CE C8 B1 10 85 CF A0 00 
9340- Bi CE 09 80 9D 00 02 E8 
9348- E4 06 F0 03 C8 D0 F1 A9 
9350- DC 90 00 02 Eé 06 A2 00 
9358- AS 25 20 C1 FB A4 24 BI 
9360- 28 C9 40.90 1E BD 00 02 
9368- 91 28 E8 E4 06 F0 2A C8 
9370- CO 28 DO F1 Eé 25 ÀS 25 
9378- C9 18 FO 14 20 C1 FB A0 
9380- 00 FO E2 C8 CO 28 DO D7 
9388- Eé 25 ÀS 25 C9 18 D0 03 
9390- 4C 3F 90 A0 00 84 24 F0 
9398- Ci Eé 18 D0 02 Eé 1C AS 
9340- 1C CS 1A DO 09 AS 18 CS 
9348- 19 DO 03 4C E9 90 C8 CO 
9380- 28 DO 0D Eé 25 AS 235 C? 
9388- 18 FO DS 20 Ci FB A0 00 
93C0- 81 28 C9 40 B0 E8 84 24 
93C8- AS 10 69 03 85 1D 90 02 
9300- Eé 1E 4C 2A 93 


CET ECRAN 
D 





ARE k 


Un bug du Filer de ProDOS 1.0 


Si l'on formate (Volume Commandés, 
une e dont le nom 
comporte des nues la 
disquette _ sera pas formatée 
correctement. 
— Un CAT ne fonctionne pas : 
nes commandes du Filer, 

pere exemple Djetect bad blocks, 

_ allocation,  Rjename a 
ui ., entraînent un ‘VOLUME 
NOT FOUND” tandis que List 
volumes indique l'existence de ce 
volume. 


Conclusion: puisque le Filer ne 
met pas automatiquement le nom de 
la disquette en majuscules, faites-le 
vous-même ! 





371 SD4 


380 SD0Q 


414 SD21 
415 
416 
417 


(#10),Y 
S080 


(#1D),Y 
$CE 


(#10),Y 


;LAISSE LES ESPACES ET LES *_" 


;DRAPEAU POUR SAVOIR SI L’ON EST DANS UN MEME 
3LIBELLE OU SI L’ON EN COMMENCE UN NOUVEAU 


;QUAND ON RETROUVE UN ESPACE OÙ UN "_* APRES 
ANALYSE D'UN LIBELLE EN INVERSE, IL Y AURA 
;UNE DONNEE À METTRE EN REGARD DE CE LIBELLE 


;0N DOIT LOCALISER AUTANT DE LIBELLES QUE 
DE DONNEES À AFFICHER 


POURSUITE DE L'ANALYSE DE L'ECRAN 


DEPART DE L'AFFICHAGE DES DONNEES 


3RECUPERE LA LONGUEUR DE LA CHAINE 


LONGUEUR = 0 --) PAS DE CHAINE À AFFICHER 


3RECUPERE L'ADRESSE DE LA CHAINE 


3 TRANSFERT DE LA CHAINE DANS LE BUFFER 
APRES REMISE EN ASCII NEGATIF 
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43 
434 5SD80 


441 5D13 
442 
443 
444 SD12 
445 


458 
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INC 


ÉÉFÉEFELEEELLELLLEE 


85283 


PLACE UN "PSEUDO RETURN" EN FIN DE DONNEE 


Fous 


;PROTEGE LES DONNEES EN INVERSE 
3RECOPIE LA CHAINE SUR L'ECRAN 


Hpple 
3CHAINE TERMINÉE ? Ep Û 


PASSAGE À POSITION SUIVANTE SUR L'ECRAN 


ON NE DEVRAIT JAMAIS TOUCHER LA FIN DE L'ECRAN 


est d 
;SUITE DE L'AFFICHAGE C'es (A) 
sSAUTE LES *INVERSE" AUNT DE COMMENCER 
jA AFFICHER LA CHAINE | 83 au } © 
Juin 


;FIN DE L'ECRAN SANS FIN D’AFFICHAGE --) ERREUR 


Venez 


;MISE À JOUR DU NOMBRE DE CHAINES AFFICHEES Nous 


Voir ... 


:TOUTES LES CHAINES NE SONT PAS ENCORE AFFICHEES 


;1DEM 
3SINON --} REPREND UNE SAISIE 
;ON VEUT PASSER À LA POSITION SUIVANTE À L'ECRAN 


JAMAIS LE BAS DE L'ECRAN NE DOIT ETRE ATTEINT 





;IL FAUT RELOCALISER LE LIBELLE SUIVANT 


PASSE A L’INDICE SUIVANT DANS LE TABLEAU 





495 STA $1D 


496 BCC SD20 
497 INC $1E 
498 SD20 XP SD2! 


REPRISE DE LA PROCEDURE D'AFFICHAGE 


—————————_______—————_—_____ a 


TEST.IPE2 


1 HIMEM: 9 * 4096 -— 1 

5 D$ = 
RINT D$"BLOAD INTER 

10 TEXT : HOME 

15 PO$ = * 


*"DON.1. 


: PRINT : PRINT “DON.2.:* 


SPCC 15)"DON.3.:" 
45 FOR I = 4 TO 9: PRINT : HTAB 10: PRIN 


NEXT 


CHR$ (4): PRINT D$"BLOAD IPE2": P T "DON."1".:" LEFT$ CPO$,LI1ZC1)): 
RETURN 


50 HOME :2$ = "ECRAN 2": HTAB 20 - LEN 
C2$) / 2: PRINT Z$: FOR I = 0 TO 5 








20 DIM D1#(9),L1Z(9) 51129): FOR I = OT 60 


5: PRINT 


: PRINT "DONNEE."1".:" LEF 


T$ (PO$,L2%C1)): NEXT : RETURN 


HOME : PRINT "ECRAN 2 


MODIFIE": 


O 9: READ L1Z(CI),T1ZC1): NEXT FOR I = O0 TO 5: PRINT : HTAB 10: P 
22 DATA 10,0,5,1,20,0,2,1,2,1,5,0,10,0, RINT *DONNEE."1".:" LEFT$ (PO0$,L2/ 
4,1,6,1,30,0 (12): NEXT : RETURN 


25 DIM D2$#(5),L2%(5),T22(5): FOR 1 = OT 100 
O 5: READ L2Z(1),T22C1): NEXT : DA 


27 GOTO 100 


GOSUB 30:5SD1$,L1%,T1%: GOSUB 30:8DD 
1$,L1Z,T1%: GOSUB 40:5DD1#%,L1%,T1% 


TA 10,0,6,1,6,1,20,0,1,1,6,0 : GOSUB 50:6SD2$,L2%,T2/: GOSUB 60 
:SDD2$ ,L2%,T2% 
HTAB 20 - L | 110 HOME : FOR 1 = 0 TO 9: PRINT Di$(1): 


30 HOME :2$% = "ECRAN NO 1": 
EN (2$) / 2: PRINT 2$: PRINT 

PRINT "DONNEE 

."1".C"TIZCI)").:" LEFT$ (PO$,L1ZC 120 


33 FOR I = 0 TO 9: PRINT 


122: NEXT 
35 RETURN 


40 HOME :2$% = "ECRAN 1 MODIFIE": HTAB 20 
—  LEN (2%) / 2: PRINT 2$%: PRINT 
: PRINT : PRINT "DON.0.:" SPCC 15) 


OR I 


NEXT 
INT D2$#(1): NEXT : GET 2$ 
FOR 1 = O TO 9:D1$#CI1) = "": NEXT : F 
0 TO S:D2$(I1) = “": NEXT 


PRINT : FOR I = 0 TO 5: PR 


130 GOSUB 30:8DD1$,L1%,T1%: GOSUB 50:S5DD 


2$,L27%,72%: HOME : FOR 1 = 0 TO 9: 
PRINT D1$(I1)2: NEXT : PRINT : FOR 
1 = 0 TO 5: PRINT D2$(1): NEXT 





Le porte-parole 


Ediciel (Matra & Hachette) nous pro- 
pose un synthétiseur de parole qui 
parle français, sous forme d’une carte 
(à brancher dans un slot, le 4 de pré- 
férence) et d’une disquette. 


La carte 


Elle comporte : 


— Un chip synthétiseur de parole 
MEA 8000 permettant la synthèse de 
parole et la génération de sons musi- 
caux. 

— Un amplificateur basse fréquence 
pour amplifier le signal vers un haut- 
parleur. 

— Des emplacements libres pour re- 
cevoir des RAMs ou des PROMs, et 
les décodeurs pour y accéder. 

— Une sortie vers le haut-parleur de 
l'Apple, que l'on doit alors débran- 
cher de la carte mère (ce n'est pas 
très commode sur un 1I+ !). 
Inconvénients : le haut-parleur est 
déconnecté pour les usages classi- 
ques, mais fait du bruit à cause de 
parasites électriques quand les drives 
tournent ! On aurait aimé une possi- 
bilité de ’switcher’ sans avoir à ouvrir 
le capot et rebrancher les fils. 

— Une sortie vers un haut-parleur 
externe, de type prise de chaîne Hi- 
Fi, que l'on peut relier à un amplifi- 
cateur. J'aurais préféré une petite 


prise ‘jack’ pour relier à un magnéto- 
phone, mais c'est personnel (mon 
Apple est à 2 mètres de ma chaîne, 
à vol d'oiseau). 


Le logiciel de synthèse 
de texte 


Première face de la disquette 


Malgré de nombreux défauts ergono- 
miques (par exemple, pas d’'éditeur 
de lignes des phrases entrées), ce 
programme est un magnifique bébé 
né de l'union du hardware et du 
software. 

Il permet de créer des fichiers de 
messages parlés, que l’on peut inté- 
grer à des programmes Basic ou as- 
sembleur, voire au célèbre EDI- 
LOGO. 


Les deux grandes possibilités sont : 


— L'édition en français: on rentre 
une phrase (avec des codes spéciaux 
pour les accents...), le programme la 
traduit en phonèmes et peut la pro- 
noncer. 

Et cela marche ! En français intelligi- 
ble et agréable. On peut même met- 
tre un point d'interrogation, et l'into- 
nation changera. De plus, on peut 
indiquer les groupes verbaux et no- 
minaux avec des marqueurs spé- 


Olivier Herz 


ciaux, de façon à se rapprocher 
d'une élocution naturelle. 


Toutefois, ce programme n'a pas la 
science infuse et commet des erreurs. 
Que pensez-vous des phrases ”’Les 
poules du couvent couvent” et 
"Nous portions nos portions” ?. 

— C'est pourquoi on peut aussi édi- 
ter en phonétique, en indiquant les 
phonèmes. Pour des raisons scientifi- 
ques, la solution employée ici pour 
reconstituer la parole est celle rete- 
nue par le CNET, qui part des cou- 
ples de phonèmes successifs. 


C'est tellement bon que je l'ai fait 
parler en anglais, en allemand et 
en japonais. Son accent français est 
tout simplement délicieux (‘Maille 
teil’lor iz ritch”). 


Mise au point graphique 


Deuxième face de la disquette 


Ce programme permet de créer des 
notes de musiques et des effets spé- 
ciaux sonores en faisant varier l’am- 
plitude du signal, la fréquence et la 
largeur des bandes et en visualisant 
le tout. Il peut créer ses propres fi- 
chiers de bruits ou bien modifier des 
messages créés par le synthétiseur de 
parole. 

Œ 
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Puissant et simple 


comme... Macintosh 


CX MacBase est un 
logiciel intégré 

d’un genre tout à fait 
nouveau. Vous passez 
d’une application à 
une autre, d’un 
document à un autre 
avec une surprenante 
facilité ; par exemple, 
pour réaliser 
automatiquement un 
graphique à partir d’un 
fichier, éditer du 
courrier personnalisé, 
créer des relations ou des échanges 
entre fichiers. 


CX MacBase regroupe graphiques, 
gestion de fichiers, calculs, 
traitement de textes, édition 
automatisée de lettres, d'états et 
d'étiquettes. 


Tout celà, en un seul programme 
puissant et simple comme... 
Macintosh. 

Branchez CX MacBase le matin, il 
vous accompagnera 

jusqu’au soir ! 


Apple Computer Inc est licencié de la marque Macintosh 
Cx MacBase est une marque déposée de Contrôle X 
Ensemble est une marque déposée de Contrôle X 


CX MacBase 


Le Logiciel Professionne 
intégré sur Macintosh 








Il change tout 
sans tout bouleverser 


Chaque jour, vous créez, échangez, 
transmettez des documents. Chaque 
jour, CX MacBase travaille 
directement sur les documents 
professionnels qu’il vous a permis 
de créer et d'illustrer : imprimés, 
formulaires, rapports d'activités, 
devis, mémos, etc. Et vous 
retrouvez sur Macintosh votre cadre 
naturel de travail. Vous savez tout 
de suite calculer, classer, retrouver, 
sélectionner, trier, imprimer, 

mixer à volonté. 






Donnez du tonus 
à vos documents 
















Communiquez avec 
votre entourage et 
valorisez vos perfor- 
mances profession- 
nelles en envoyant 
de superbes états 
récapitulatifs 
extraits de vos 
fichiers ; toutes 
sortes de docu- 
ments où cohabi- te 
tent votre logo, des dessins,  "* 
tableaux, graphiques, textes, 
encadrés, etc. CX MacBase est à 
l’aise dans tous les milieux profes- 
sionnels et vous permet de 
développer vos propres applications. 





CX MacBase répond vraiment à 
toutes les promesses de Macintosh ! 
Renseignez-vous vite auprès d’un 
revendeur agréé ou adressez-nous 
votre carte de visite pour recevoir 
une documentation. 











as Controle X 


Les logiciels à tout imaginer 


Tour Maine - Montparnasse - 33, avenue du Maine, 


75755 Paris Cedex 15 - Tél. : (1) 538.98.87 

















VERSION SOFT, LES FRUITS 


L'OUTIL INDISPENSABLE DU DÉVELOPPEUR. 





Premier assembleur éditeur pleine page, 
pour APPLE Ile et APPLE Jic. 


Si vous avez la programmation dans 

la peau, initiés ou débutants, Procode est 
le logiciel qu’il vous faut. 

Il vous permet de développer en un temps 
record grâce à ses fonctions d’éditeur 
pleine page 80 colonnes. 

Etudié pour ProDOS 64 k ou 128 k, 
Procode peut assembler sans accès 

disque jusqu’à 3 sources en mémoire. 
Normal, on travaille entre Pros! 


L'édition française 





LE PLAISIR DE LA GESTION. 


Gestionnaire de talent pour le plaisir 
de rentrer dans ses comptes. 





Budget Familial vous 
en donne pour votre 


argent ! 
Il vous permet d’enre- RQ 


gistrer tous les mouve- 

ments de votre compte 
bancaire et d’avoir l'œil sur vos 
dépenses. 

Avec lui, plus de problèmes de 
gestion, vous êtes sûr d’ytrouver 
votre compte. 

Même en ignorant tout de la 
gestion, vous pouvez très vite devenir 
un super gestionnaire. 

Avec le plaisir en plus. 





LES LOGICIELS VERSION SOFT UTILISENT LE SYSTÈME D'EXPLOITATION PRODOS 
LES MENUS DÉROULANTS PERMETTENT D'ACCÉDER DIRECTEMENT AUX DIFFÉRENTES FONCTIONS. 


| 
| 
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D’UNE PASSION 


de logiciels 


EPISTOLE 





L'ÉCRITURE SOURIS. 


Best-seller incontesté 
du traitement de texte français. 






VERSION CALC 


LE CALCUL SOURIS. 


Premier tableur graphique 
multi-fonctions utilisant la souris. 





Partagez le plaisir 
d'écrire avec Épistole. 
Modèle de simplicité et 

de puissance, ce logiciel 
est l'outil idéal pour tous 
vos traitements de texte 
français. 


En un clin d’œil, Épistole 4 
rédige toutes vos lettres, vos 
rapports et vos mailings — avec 
le souci en moins. À 


Vous voulez effacer un mot, changer 
une phrase, déplacer un paragraphe ? 
Rien de plus simple, l'écriture 

souris vous laisse les mains libres! 
Épistole vous offre l’écriture facile. 
À vous imagination ! 





# 


Voici enfin le logiciel 

adapté à toute votre 

gestion quotidienne. Il 

suffit d’une simple 

pression du doigt avec la 

souris pour comprendre que — de 
toutes vos opérations de prévisions, C 
de synthèses ou d’analyses, 
deviennent alors un jeu 
d'enfant. 

Vous souhaitez une représen- 
tation graphique ? Facile! Ouvrez 
une fenêtre, cliquez et faites le plein 
d'images. 

De mémoire de logiciel, on n’avait encore 
Jamais vu une telle facilité alliant puissance 
et rapidité. 








à, 


81 d 
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Gestion de fenêtres texte 


Georges Zwingelstein 


La mode étant au Macintosh, sa 
souris et ses fenêtres, je n'ai pu 
m'empêcher de succomber à la ten- 
tation de donner une de ces particu- 
larités à l'Apple Il: les fenêtres. J'ai 
choisi de gérer les fenêtres en écran 
texte plutôt qu'en haute résolution, 
car elles ont l'avantage d'occuper 
moins de place mémoire, d’avoir un 
temps de réponse acceptable, de ne 
pas nécessiter une gestion de curseur 
particulière, et surtout parce qu'elles 
servent, le plus souvent, à afficher 
des menus sur le Macintosh. 

Ce programme permet à l’aide de 
l'ampersand (&) de créer, d'ouvrir, 
de fermer et d'échanger à volonté 
des fenêtres, pouvant se superposer 
les unes aux autres, sans perte d'’in- 
formations. 


Les commandes 


Les principales commandes concer- 
nent : 

- la création 

- l'ouverture 

- la fermeture 

- l'échange. 


La création 


La syntaxe est la suivante : 

& C NF,MD.MG,MH,MB,CH  (C 
pour Créer) 

avec les conventions suivantes : 

e NF représente le numéro de la fe- 
nêtre (compris entre 1 et 127). 
MD définit la marge droite. 

MG définit la marge gauche. 

MH délimite la marge haut. 

MB délimite la marge bas. 

CH est le code écran (optionnel) 
du caractère délimitant les bords 
de la fenêtre, les marges étant 
données par rapport à ceux-ci. 


Pour obtenir, par exemple, une fené- 
tre remplissant tout l'écran, il suffit de 
donner l’ordre : 

& C1,1,40,1,24 (en 40 colonnes) 

& C1,1,80,1,24 (en 80 colonnes) 


Ce logiciel fonctionne également en 
80 colonnes sur Apple //e. Quelques 
remarques sont néanmoins nécessai- 
res sur une utilisation en 80 colon- 
nes, les commandes d'ouverture et 
de fermeture de fenêtre utilisant les 
adresses | standard, pour la protéger 
($20-$23 ou 32 à 35 en décimal) : 


- les colonnes étant numérotées de 1 
à 80, on ne peut protéger une fené- 
tre qu'entre une colonne impaire (à 
gauche) et une colonne paire (à 
droite). 

- la marge gauche est donc arrondie 
au premier nombre impair inférieur. 

- là marge droite est, de la même 
façon, arrondie au premier nombre 
pair supérieur. 


Par exemple, pour une fenêtre sur 
les deux colonnes 65 et 66, les 
commandes suivantes sont équiva- 
lentes : 

&C1,65,65.... 

&C1,66,65.... 

&C1,65,66.... 

&C1,66,66... 


L'ouverture 


& O NF (O comme Ouvrir) 

où NF représente le numéro de la fe- 
nêtre que l’on désire ouvrir. C'est 
tout. 


La fermeture 


La commande de fermerture est en- 
core plus simple, puisqu'on ne peut 
fermer que la fenêtre se trouvant au- 
dessus de toutes les autres : 

& F (F comme Fermer) 

L’échange 

Enfin, la commande permettant de 
faire passer une fenêtre au-dessus de 
toutes les autres est légèrement plus 
compliquée, le numéro NN de la fe- 
nêtre à remonter ne pouvant être 


connu de l'ordinateur : 
& E NF (E comme Echanger) 


Attention : afin d'améliorer notable- 
ment la rapidité du transfert, cette 
commande crée dans le sens décrois- 
sant, à partir de l'adresse $2FF 
(c'est-à-dire sur un morceau du buf- 
fer d'entrée), une table des adresses 
des fenêtres concernées par le trans- 
fert; il y a donc risque de recouvre- 
ment d'une commande préalable- 
ment entrée au clavier, si celle-ci fait 
sensiblement plus de 255 — 2 « 
(nombre d'adresses) caractères. 
Dois-je vous rappeler, au passage, la 
commande qu'il ne faut pas oublier 
sous peine de perdre votre sang 
froid ? L'initialisation. Il s’agit de : 

& I (I comme ???) 

Cette commande est automatique- 
ment réalisée lorsqu'on lance le pro- 
gramme : elle identifie le type de 
l'Apple, ainsi que l’activité d'une 
éventuelle carte 80 colonnes sur 
Apple //e, crée une pseudo fenêtre 
de numéro 0 juste sous le début du 
programme, puis efface les variables 
(CLEAR) et enfin positionne HIMEM 
sous là première fenêtre. 


Le positionnement 


&P FMG,MH (P comme Position- 
ner) 

permet de déplacer une fenêtre; ce 
qui autorisera une mise en place plus 
facile des différentes fenêtres utilisées 
dans un programme. NF est comme 
à l'habitude le numéro de la fenêtre, 
MG et MH les nouvelles marges gau- 
che et haut de la future position de 
cette même fenêtre. 


Attention: comme pour l'échange, 
une table est créée dans le buffer 
d'entrée. 

J'ai d’autre part activé, pour vous 
soulager, la touche de tabulation, 
celle de l’Applesoft ne fonctionnant 
pas correctement en 80 colonnes, et 
j'ai également repris, en la modifant 
un peu, la routine de menu proposée 
par Denis Sureau dans l’article ‘La 
programmation facilitée” du Pom's 5. 
Ces commandes travaillent à l’inté- 
rieur de la fenêtre, quelle que soit la 
position de celle-ci. Par exemple, 
pour positionner le curseur sur la 
première ligne et la première colonne 
de la fenêtre, on utilisera : 

& VTAB 1:& HTAB 1 

Ces commandes ne seront pas tou- 
jours nécessaires, le programme se 
chargeant de mémoriser et de rappe- 
ler la position du curseur, lorsque 
celui-ci change de fenêtre. 


Pour appeler la routine de menu, la 

commande sera : 

& LET NV,VT,LN NI(IL) 

avec les conventions suivantes : 

e NV = nom d’une variable 

e VT = tabulation verticale dans la 
fenêtre 

e LN = longueur de la barre en in- 
verse 

e NI = nombre d'items 

e IL = interligne (optionnelle, l’inter- 
ligne initiale étant de 1). 


La routine vérifie d’abord que l’en- 
semble du menu rentre à l’intérieur 
de la fenêtre, utilise non plus des 
chiffres mais des lettres à partir de 
A” pour la sélection, ce qui autorise 
un nombre d’items compris entre 1 
et 26 et tient compte des flèches ver- 
ticales de l'Apple //e. De plus, la 
barre de sélection n'inverse que les 
caractères inversables. 


J'ai enfin transformé un sous-pro- 
gramme qui me permettait de dépla- 
cer HIMEM pour créer une fenêtre 
sans perdre les variables chaînes, en 
une commande : 

& HIMEM : NNNN 

où NNNN représente la nouvelle va- 
leur non pas de HIMEM, mais du 
début de la zone libre entre les fené- 
tres et le programme, vous permet- 
tant d'y charger vos propres routines 
(le début du programme se trouve 
en $8A00 ou 35328 en décimal). 


Désirant, de plus, pouvoir récupérer 
la place d’une fenêtre devenue inu- 
tile, il m'a été nécessaire de rajouter 
la commande : 

&D NF (D comme Détruire) 

avec laquelle on peut détruire la fe- 
nêtre de numéro NF à condition que 
celle-ci soit fermée, ce qui est évident 
si elle est devenue inutile. 


Enfin, comme il est beaucoup plus 
agréable, dans un programme Basic, 
de n'avoir qu’à charger une fenêtre 
préalablement créée et sauvée sur 
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pplemania 


Symptômes. 


OUI NON OUI NON 
1. Je veux connaître PRODOS sans être un pro 5. Pianoter des nuits entières, c'est planant. Mais 
du DOS HI planer tout seul, c'est frustrant. 


2. Ami des bêtes, je cherche un chat à puces pour 6. Je veux relier mon lave-vaisselle à mon Apple IL. LIU] 
colorier ma souris en mauve 1 | 


3. Devenir à l'aise comme Blaise en Pascal, quel pied! LC] 





7. Appeler un S.0.5. informatique quand 


la technique coince, ça dépanne. HA 
4. Mon baud à 7 bits cherche un 8° pour compléter L LM: 
son protocole X-On X-Off en vue d’une liaison 8. Je veux apprendre à mieux gérer mon bureau 
durable CC] en le jetant par les fenêtres de Macintosh. RE 


3 OUI et MOINS : vous êtes en pleine 4 à 7 OUT : vous êtes contagieux, vous 8 à 10 OUI : bravo, venez d'urgence cultiver 
incubation, prenez des mesures ! serez bien entouré au Club Apple votre passion au Club Apple 








Remède : REJOIGNEZ LE CLUB APPLE 


Plein, plein d'avantages vous y attendent : 





- une messagerie électronique gratuite ; - des stages d'initiation et de perfectionnement animés 
par les “gourous” du Club; 
des voyages organisés en Californie : 

- une librairie spéciale Club : 


- un numéro de téléphone pour consulter les ingénieurs 
Apple 7 jours sur 7; 


- tous les mois, le journal du Club : - un Apple Check pour bénéficier de conditions de © 
L'Echo des Apple; crédit préférentielles : £ 
- des conférences, réunions d'information, projections - des rencontres organisées avec d’autres 
privées et rencontres avec des “pros” ; Applemaniaques. 


BULLETIN-REPONSE 


Je désire recevoir, sans engagement de ma part, une documentation complète sur le Club Apple et votre formulaire d'inscription 


NOM 
ADRESSE _ 
CODE POSTAL 
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disquette, on disposera des quatre 
commandes suivantes : 


&SAVE "NOM”,F1 

pour sauver la fenêtre numéro F1 à 
la suite de celles précédemment sau- 
vées dans un fichier d’un type nou- 
veau. Celui-ci apparaît comme bi- 
naire dans le catalogue. 


&LOAD "NOM" F1.N1 
pour charger la N1 ième fenêtre du 
fichier en lui donnant le numéro F1. 


&STORE "’NOM”,F1,N1 

pour sauver les marges et le contenu 
de la fenêtre F1 à la place de la N1 
ième fenêtre du fichier (il faut que les 
dimensions soient identiques). 


&RECALL "NOM, N1,F1 

pour effectuer la réciproque de 
&STORE sans rappeler les marges: 
"NOM" représente une chaîne de 
caractères contenant le nom du fi- 
chier, dans lequel on ne peut sauve- 
garder plus de 127 fenêtres (ce qui 
est largement suffisant dans la plu- 
part des cas, surtout qu'il n’est pas 
possible d’avoir un catalogue des fe- 
nêtres), accompagné si nécessaire 
des numéros de drive et de slot sui- 
vant la syntaxe du DOS. 


Pour SAVE et LOAD : 

e si N1 n'est pas précisé, il est pris 
égal à F1 

e si ni F1, ni N1 sont donnés, alors 
le programme charge toutes les fe- 
nêtres en leur donnant un numéro 
croissant (sauve toutes les fenêtres 
par numéro croissant à la suite du 
fichier). 


Pour STORE et RECALL : 

e les valeurs par défaut de F1 et N1 
sont : 
N1 = F1 si N1 n'est pas donné, et 
N1 = F1 = 1 si F1 et N1 sont 
inexistants. 


Remarques 


Chaque fois qu'une fenêtre est créée 
ou chargée, la routine FRE(0) est ap- 
pelée. Les commandes de gestion de 
fichiers de fenêtres ne vérifient pas la 
fermeture de la fenêtre. Il sera donc 
possible, par exemple. de fusionner 
des fenêtres ou de récupérer un mor- 
ceau d'une fenêtre en ouvrant la 
nouvelle par dessus puis en la sau- 
vant avant de la fermer. 

Il est possible de faire ressortir les fi- 
chiers de fenêtres en POKant dans la 
table des caractères des types de fi- 
chiers. le code voulu à l'affichage du 
catalogue. par exemple : 

POKE 45998, 198 pour leur dénner 
le type ‘F”. 

Tous les paramètres peuvent être 
donnés sous forme d'expression. le 
programme utilise les routines d'éva- 
luation de nombre ou chaîne de ca- 
ractères de l'Applesoft. 


Les messages d’erreur 
Les messages d'erreur utilisés ont été 


détournés de leurs significations origi- 
nelles. 


— OUT OF MEMORY indique que la 
place nécessaire à la création d’une 
fenêtre est insuffisante ou que le dé- 
placement de HIMEM entraînerait un 
recouvrement soit des variables, soit 
du programme de gestion des fené- 
tres. 

— UNDEFD STATEMENT signale 
une opération sur une fenêtre inexis- 
tante. 

— REDIM'D ARRAY souligne le fait 
que l’on veut créer ou charger une 
fenêtre dont le numéro a déjà été at- 
tribué. 

— OVERFLOW indique une opéra- 
tion entraînant un dépassement de 
capacité (ouvrir une fenêtre déjà ou- 
verte, en fermer une quand il n’y en 
a plus à fermer, ou RECALL ou 
STORE sur des fenêtres qui n’ont 
pas les mêmes dimensions). 

— ILLEGAL QUANTITY sert pour 
toutes les valeurs interdites : mauvai- 
ses marges, mauvais numéro de fe- 
nêtre, valeurs impossibles d'un ou 
des paramètres du menu, destruction 
d’une fenêtre ouverte... 


Enfin, deux messages du DOS utili- 
sés par le programme : 

— OUT OF DATA signale que le fi- 
chier a moins de N fenêtres, si l’on 
veut accéder à la N ième fenêtre. 

— DISK FULL indique soit une dis- 
quette pleine, soit un fichier conte- 
nant 127 fenêtres, lorsque l’on veut 
sauver une fenêtre. 


La structure du 
programme 


Pour les utilisateurs de l’assembleur 
et les autres, voici quelques informa- 
tions sur la structure du programme. 

Le programme se charge en $89EE, 
commence par brancher l’ampersand 
(S89EE à $89FF), puis saute à la 


routine d’initialisation. 

Celle-ci, crée juste sous l'adresse 
contenue en $8A00 — $8A01 (le 
contenu initial est $8A00), une pre- 
mière fenêtre de numéro 0 corres- 
pondant à tout l'écran et ne possé- 
dant pas de buffer. HIMEM pointe 
alors sur cette fenêtre. 

Lorsqu'une fenêtre est créée ou 
chargée, les chaînes ainsi que 
HIMEM sont déplacées vers le bas 
grâce à une partie de &HIMEM, 
pour laisser la place à la nouvelle fe- 
nêtre, qui y est alors copiée. 

Lorsque le programme cherche une 
fenêtre, il part de celle pointée par 
HIMEM et remonte jusqu'à la fenêtre 
de numéro 0. 

Vous pouvez vous libérer de la place 
pour vos propres routines : soit de 
manière temporaire avec &HIMEM 
(&l replace la fenêtre O juste sous 
$8A00), soit de manière définitive en 
modifiant l'adresse $8A00 — $8A01 
et en réinitialisant. L’interpréteur se 
termine en $8A0F par un saut à la 
routine d'erreur de syntaxe du Basic, 
que vous pouvez donc détourner. 


Une fenêtre est mémorisée sous 
forme de 2 parties : les données la 
caractérisant et le buffer qui contient 
ce qui sera affiché à l'écran. 


— Les données comprennent : 

e le numéro de la fenêtre 

e le numéro de la fenêtre ouverte 
suivante (nul si c’est la dernière fe- 
nêtre ouverte, c'est-à-dire celle qui 
est au-dessus des autres). 

e les 2 octets de mémorisation des 
tabulations verticales puis horizon- 
tales (tabulations dans la fenêtre). 

e les 4 marges de la fenêtre (dans le 
format qui permet une recopie di- 
recte dans les mémoires $20-$23). 


La gestion des fichiers sur disquette 
utilise quelques routines du DOS 
pour l'ouverture et la fermeture des 


Max : Le moniteur étendu 


Jacques Supernant 


Apple +, //e, //c 


£e moniteur autorise un contrôle de l'exécution des 
routines en langage machine. 

+ Ln mode Trace et Pas à Pas très évolués et 
sélectifs sont complétés par un accès direct 
eux registres du 6502 (ou 565COEL /! est ainsi 
Possible de les initialiser à son gré ou à /'aide de /e 
routine de hasard. 


La gestion des fenétres d'écran simplifie /e 


mode Trace. 


tne routine permet /a recherche de suites 


d'octeæets. 


Un mini-assembleur très souple fait partie de 


MAX. 


ne ligne de commande peut devenir une 
boucle avec /ordre JUMP. 


Les fichiers source sont sur la disquette. 
Disquette et documentation : 150,00 F TIC franco 


(bon de commande page 78). 
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fichiers puis le File Manager pour 
gérer le contenu qui est organisé de 
la manière suivante : 

Le premier octet contient le nombre 
de fenêtres dans le fichier. Puis on 
trouve les fenêtres enregistrées de 
manière séquentielle (de même que 
pour l’organisation en mémoire, un 


enregistrement contient deux zones : 
la zone des données qui ne 
comprend que les 4 marges, puis la 
zone du buffer qui contient le 
contenu de la fenêtre). 


Je termine enfin, en vous souhaitant 
plein de petites fenêtres ! = 


N.D.L.R. : Le listing du programme 
Basic a été quelque peu modifié pour 
les lecteurs n'ayant pas la disquette 
d'accompagnement à leur disposition. 
La version originale (sur la disquette) 
charge les fenêtres FGEN, FPRE et 
FPOM'S 14. 





Programme ESSAI 


250 & C127, 


1,C0L,20,24,32: & 0127: GOSUB 











1000 
10 TEXT : HOME 260 & UVTAB 3: & HTAB 3: PRINT "OUVERTU 
20 PRINT CHR$ (4)"BRUN WINDOW"* RE DES FENETRES";: GOSUB 1000 
30 NN = 9:COL = 40: REM METTRE 80 POUR ES 300 FOR I = 1 TO NN: & OI 
SAI EN 80 COLONNES, ET PRINT CHR#&« 310 & VTAB 3: & HTAB 3: PRINT "FENETRE 
4)"PR£3" AVANT LA LIGNE 20 “:1;: GOSUB 1000 
100 & VTAB 10: & HTAB 5: PRINT "EXEMPL 320 NEXT I 
E D'UTILISATION DES FENETRES" 330 & E127: GOSUB 1000: & HTAB 3: PRINT 
110 & UVTAB 13: & HTAB 7: PRINT "“PATIEN "PUIS ECHANGE DES FENETRES";: G0S 
CE, JE CREE DES FENETRES" UB 1000 
200 FOR I = 1 TO NN 400 FOR I = 1 TO NN: & El: GOSUB 1000: N 
210 MG = COL *x RND (C1) + 1:MD = COL x R EXT I 
ND (1) + 1: IF MD — MG < 12 THEN 2 410 & E127: GOSUB 1000: & HTAB 3: PRINT 
10 "ENFIN FERMETURE DES FENETRES" ; : 
220 MH = 24 *x RND (1) + 1:MB = 24 *x  RND GOSUB 1000: & F: GOSUB 1000 
C1 + 1: IF MB -— MH < 4 THEN 220 500 FOR I = 1 TO NN: & F: GOSUB 1000: NE 
230 & CI,MG,MD,MH,MB,256 *  RND (1) T1 
240 NEXT I 999 END 
245 SPEED= 100 1000 FOR J = 1 TO 1000: NEXT J: RETURN 
E MODIF. ECHANGE. 
Source Big MAC 35 ESSAIMOV = 1 ; ASSEMBLAG 
E MODIF. DEPLACE 
Programme WINDOW.S 36 ESSAIS0O = 0 :ASSEMBLAG 
1 XX XX 262626 26 DE DE DE D DE ME DE JE DE NE DE NE DE DE JE EEE DE EE E MODIF. SCREENIT 
2 + # 37 ; POUR 80 COLONNES 
3 * PROGRAMME DE GESTION DE > 38 PAG 
4 * FENETRES TEXTES #% 397 * 
5 * * 40 x COMMANDES MACROS 
6 * PAR G. ZWINGELSTEIN # 41 DO 0 
7 * # 42 
B XX HD MN NE NE DE DE IE HE HE DE DE DE DE JE DE HE DE DE DE DE DE DE JE NH 43 INCR MAC 
9 44 INC 81 
10 LISTING KBD ;DEMANDE AFFICHAGE LI 45 BNE NI 
STING 46 INC S1+1 
11 DO LISTING 47 NI <<< 
12 ELSE 48 
13 LST OFF 49 DECR MAC 
14 FIN 50 LDX Si 
15 SAVEOBJ KBD ;DEMANDE SAUVEGARDE D Si BNE ND 
U CODE OBJET 52 DEC S1+1 
16 DO SAVEOBJ 53 ND DEC 81 
17 DSK WINDOW 54 <<< 
18 FIN 55 
19 EXP OFF 3: IMPRIME S 56 CMPR MAC 
EULEMENT LE CODE MACRO 57 LDA 51 
20 TR :3 BYTES P 58 CMP $62 
AR LIGNES 59 LDA Si+i 
21 60 SBC S2+1 
22 * SOUS-PROGRAMME DEPENDANT DE LA CA 61 <<< 
RTE 80 COL. : 62 
23 * VTAB 63 TR MAC 
24 * HTAB 64 LDA 81 
25 * (GETPARAM, GETNELM, CHKMARGE ) 65 STA 82 
26 * SAVECURS 66 <<< 
27 *# SCREENIT 67 
28 * INVERT 68 TRDB MAC 
29 *# CALCBAS 69 >>> TR.S1:;:82 
30 * APPLEID 70 222 TR.S1i+1:;82+1 
31 71 <<< 
32 ORG $89EE 72 
33 73 TRAX MAC 
34 ESSAIECH = 1 3ASSEMBLAG 74 LDA si 
EE ” 
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>>> AD.S1+1;52+1;53+1 


>D2> ‘SB.S1+1;52+1:53+1 


LDX Si+1i 
STA 82 
STX S2+1 
<<< 

AD MAC 
LDA 81 
ADC 82 
STA 83 
<<< 

ADD MAC 
CLC 
>22> AÀAD.S1;52;83 
<<< 

sB MAC 
LDRA 81 
sBC $2 
STA 583 
<<< 

SUB MAC 
SEC 
>>> SB.81;62;:83 
<<< 

BUMP MAC 
ADC S1 
STA S8$1 
BCC BPD 
INC S1i+1 

BPD <<< 
FIN 
PAG 


* 


* CONSTANTES 
* 


* VALEUR DES TOKENS 


HTAB: = $976 
VTAB : = $A2 
HIMEM: = $A3 
RECALL: = $A7 
STORE : = $A8 
LET: = $AA 
LOAD : = $Bé 
SAVE : = $B7 
* 

* VARIABLES 

* 

YSAVI1 = $1F 
E DU REGISTRE Y 
WNDLFT _ $20 
ETRE DU MONITEUR 
WNDUWUDTH = $21 
UWNDT OP = $22 
WNDBTM = $23 
CH = $24 
[nu = $25 
BASL = $28 
PROMPT = $33 
AL = $3C 
A2L = $3E 
A3L = $40 
A4L = $42 
L'INNUM = $50 
TEMPPT = $52 
TEMPST = $55 


3; SAUVE GARD 


> TABLE FEN 


;ÿPOINTE VE 


147 
148 
149 
150 
151 

152 
153 
154 


155 
156 


157 
158 
159 
160 
161 
162 
163 


164 
165 


1éé 
167 
168 
169 
170 
171 

172 
173 
174 
175 
176 
177 
178 
179 


180 


181 
182 
183 


184 
185 


186 
187 
188 
189 


170 


a 
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RS TEMP STRING DESCR. 


INDEX = $SE 
VARTAB = $67 
ARYTAB = $6B 
STREND = $é6D 
FRETOP = $6F 
FRESPC = $71 
MEMSI2 = $73 3;HIMEM DU 
BASIC 
CURLIN = $75 ;NUMERO LI 


GNE EN COURS 
3 CCURLIN+1 = $FF SI MODE DIRECT) 


FORPNT = $85 3 POINTEUR 
SUR UNE VARIABLE 
DSCLEN = $8F 3 LONGUEUR 


DU DESCRIPTEUR DE LA VAR. 


ARYPNT = $74 
IN = +$0200 
AMPER = $03FS 
OLDCH = $047B 
OURCH = $057B 
OURCU = $05FB 
KBD = $C000 
RDALTCAR = $COIE 3LIT SWITC 
H ALTERNATE CHARACTER SET (APPLE I 
IE) 
KBDSTRB = $Co10 
CHRGET = $B1 3; RECUPERE 
UN CODE D’UNE LIGNE BASIC 
CHRGOT = $B7 3 IDEM SANS 
INCR. TXTPTR 
MEMERR = $D410 ; OUT OF ME 
MORY ERROR 
ERROR = $D412 3AFFICHE E 
RREUR POINTE PAR X 
RESTART = $D43C 3:DEPART À 
CHAUD DU BASIC 
CLEARC = $Dééc 3 COMMANDE 
CLEAR 
NEUWSTT = $D7D2 3 RETOURNE 
AU BASIC 
UNDERR = $D97C 3UNDEF. ST 
ATEMENT ERROR 
PRINT = $DADS 3 COMMANDE 
PRINT 
FRMNUM = $DD67 ; RECUPERE 
UN NOMBRE 
FRMEVL = $DD7B 3 EVALUE LA 
FORMULE POINTEE PAR TXTPTR 
SYNERR = $DEC9 3SYNTAX ER 
ROR 
CHKCOM = $DEBE 3VERIFIE L 
A PRESENCE D’UNE VIRGULE 
PTRGET = $DFE3 3TROUWE L’ 
ADRESSE DE LA VARIABLE POINTEE PAR 
TXTPTR 
IQERR = $E199 3ILLEGAL Q 
UANTITY ERROR 
GIVAYF = $E2F2 3 TRANSFORM 
E À,Y EN FLOTTANT DANS FAC 
GARBAG = $E484 3; EFFECTUE 
UN FRE(O) 
5; ET LONGUEUR DANS ACCU 
FRESTR = $ESFD 3; CHECK STR 
ING AND GET POINTER TO 
3 STRING IN INDEX AND LENGTH IN ACC 


U 


GETBYTC = $EéFs 3 SAUTE 1 C 
ARACTERE ET GETBYT 

GETBYT = $EéFr8 ; RECUPERE 
UN NOMBRE <256 

GETADR = $E752 3; CONVERT I 
EN ENTIER DANS LINNUM 

OVERFLOW = $E8D5S 3 OVERFLOW 
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240 DA INIT-1 ,CREE-1 ,OUVRE-1 
191 SETFOR = $EB27 3 TRANSFERT , FERME-1 ,ECHANGE-1 ,DETRUI S-1 
FAC DANS VARIABLE TROUVE PAR PTRG 241 DA DEPLACE-1I 
ET 242 PAG 
192 SETTXT = $FB39 243 PUT WINDOWI 3GESTION F 
193 PRNTAX = $F941 >ENVOIE À, ENETRES 
X EN HEXA 244 PAG 
194 BASCALC = $FBCI 3 CALCUL AD 245 PUT WINDOWZ 3GESTION F 
RS LIGNE TEXTE ICHIERS FENETRES 
195 COUT - $FDED 246 ERR */$9600 ;FIN PROGR 
196 MOVE = $FE2C 3DEPLACE €« AMME EN DESSOUS $94007? 
AL) À (A2L) EN (A4L) 247 FINPRMG = *% 
197 PAG 
198 * 
1799 *x INITIALISE POINTEUR DE L'AMPERSAN 
D 
200 DEPART LD £$4C CODE DE J HCT.OBJ 
. MP 1 #26 262626 DEEE XE DE DE DE DE DE DE DE DE DE DE DE DE EE HE DE DE DE DE JE DE 
201 STA  AMPER 2 * * 
202 LDA  £<DEBUT 3 * HARDCOPY POM’S # 
203 STA  AMPER+1 4 * % 
204 LDA  £>DEBUT D XX HN HE HN NEHE JE DE EE XE DE DE DE HE DE DE DE DE DE DE NE 6 6 6 6 
205 STA  AMPER+2 6 
206 JMP  INIT 7 CR) = $8D 
207 8 
208 DEBUTPRM = # 9 CU = $25 
209 FRSTUND DA DEBUTPRM ; ADRESSE D 10 BASL = $28 
EBUT PLACE LIBRE POUR FENETRES 11 
210 12 BASCALC = $FBCI 
211 262626 26062626 DE EDEN DE DE DE DEEE DE DE DEEE DE DEN DE NE 13 COUT = $FDED. 
212 *  INTEPRETEUR DE L’AMPERSAND  * 14 
213 XX XX XX HD HE NE DIE DE DE DE DE DE DE DE DE DE DE DE DE DE NE DE 15 ORG +$0300 
214 16 
215 * 17 LDA £$00 
216 * RECHERCHE CODE DE LA COMMANDE 18 STA CU 
217 DEBUT PHA 19 H0304 LDY £$00 
218 JSR CHRGET 3AJUSTE TX 20 JSR BASCALC 
TPTR 21 H0309 LDA  (BASL),Y 
219 PLA 22 CMP  £$40 
220 LDX  £TBCMDADR-TBCMD 23 BCS H031C : FLASHING 
221 NEXTCMD CMP TBCMD-1,X ET NORMAL 
222 BEQ  CMDFOUND 24 CMP  £$20 
223 DEX 25 BCS H0319 > SPECIAL C 
224 BNE  NEXTCMD HARACTERS INVERSE 
225 JMP  SYNERR 26 CLC  ;UPPERCASE LETTERS IN 
226 * VERSE 
227 CMDFOUND DEX 27 ADC £$C0 
228 TXA 28 JMP  H031C 
229 ASL 27 * PROBLEME AVEC UPPERSCASE LETTERS 
230 TAX CODE $80-#9F (CODE CONTROLE) 
231 LDA  TBCMDADR+1I ,X 30 * 
232 PHA 31 H0319 CLC 
233 LDA  TBCMDADR,X 32 ADC £#80 
234 PHA 33 H031C JSR COUT 
235 RTS  ;RETOUR PAR LA COMMAN 34 INY 
DE 35 CPY  £40 
236 36 BNE  H0309 
237 TBCMD DFB VTAB: ,HTAB: ,LET: ,LOAD 37 LDA  £CR> 
1, SAVE : , STORE : ,RECALL : ,HIMEM: 38 JSR COUT 
238 DES °1f,707,"07$"F";"E"," 39 INC CU 
D*:,7P° 40 LDA CV 
2379 TBCMDADR DA VTAB-1 ,HTAB-1 ,MENU-1, 41 CMP  £24 
LOAD-1 ,SAVE-1 ,STORE-1 ,RECALL-1 ,HIM 42 BNE  H0304 
EM-1 43 RTS 
0328- FD Eé 25 AS 25 C9 18 DO 89F8- A9 SA 8D F7 03 4C 59 8A 
HCT.OBJ 0330- D3 60 8400- 00 8A 48 20 B1 00 48 A2 
#300.331 8408- OF DD 20 8A F0 06 CA DO 
8A10- F8 4C C9 DE CA 8A 0A AA 
0300- A9 00 85 25 A0 00 20 C1 WINDOW 8A18- BD 31 8A 48 BD 30 84 48 
0308- FB B1 28 C9 40 BO O0D C9 *89EE.8A21 8A20- 60 A2 


0310- 20 BO 06 
0318- 03 18 69 80 20 ED FD C8 
0320- CO 28 DO ES A9 8D 20 ED 


18 6ÿ CO 4C 1C 
89EE- A9 4C 


89F0- 80 F5 03 A9 02 8D Fé 03 
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Graphiques aléatoires 


Thierry Han 


Je vous propose un intéressant exer- 
cice de style avec quatre petits pro- 
grammes d'animation graphique 
aléatoire. Trois sont en Basic et nous 
permettent de bien saisir le déroule- 
ment de l'animation. Le quatrième - 
le plus beau - suit la même démar- 
che, mais en assembleur, démontrant 
en chemin comment réutiliser quel- 
ques routines mathématiques et gra- 
phiques de la ROM Applesoft. 


Le principe commun (sauf CARRE) 
consiste à faire ‘’rebondir” une ligne 
sur les limites d’un rectangle. 


Un segment de droite se caractérise 
par ses extrémités, c’est-à-dire par les 
coordonnées de 2 points, soit XO, YO 
et X1, Y1. 

Chaque boucle leur ajoute un dépla- 
cement horizontal et vertical, positif 
ou négatif (AX, AY et BX, BY), dé- 
calant une ligne de longueur variable 
sur l'écran. 

Le ‘’rebond” survient quand une ex- 
trémité de la ligne atteint la limite du 
rectangle alloué, ceci électivement 
pour le sens de déplacement rendant 
le point ‘’hors-limites”’ (d’où modifi- 
cation de rotation). 

En commun également le tirage au 
sort par RND(1) des extrémités de la 
droite, des déplacements et de HCO- 
LOR (0 à 4). 


Suivons pas à pas le programme 
LIGNES : 


e 50: haute résolution page 2 

e 60-65 : tirage des coordonnées de 
2 points 

e 70-75: tirage de leurs déplace- 
ments 

e 80: stockage de leur valeur abso- 
lue; servira à tester le dépasse- 
ment 

e 85: on démarre en blanc 

© 100: traçage de la ligne définie en 
60-65 

e 110: ajout des déplacements (po- 
sitifs ou négatifs) 

e 120-150: si un point doit se re- 
trouver hors-limite à l’itération sui- 
vante, alors inversion du déplace- 
ment et nouvelle couleur 

e 200: teste le clavier : une touche 
a été frappée si PEEK(-16384) > 
127 ($C000 >= $80) 

Si oui : lit le caractère frappé 
remet le clavier en attente (adresse 

-16368 = $C010) 
si "E” (CHR$(197)) : efface et re- 

commence 
si ESC (CHR$(155)) : fin 
si quelconque sauf SPACE : nou- 

veaux points 


si SPACE (CHR$(160)): attend 


qu’une touche ait été frappée 

e 210-230: boucle à la ligne 100 
299 fois sur 300, sinon efface et 
recommence une fois sur 1200, 
sinon boucle en 60 avec de nou- 
veaux points 

e 240 : mode texte et fin 


QUATRE choisit une ligne dans le 
quart supérieur gauche de l'écran 
(60-65) et la reproduit ’en miroir” 
sur les 3 autres quarts (ligne 100). 


CARRE utilise une seule variable X 
et trace à chaque itération 4 lignes, 
soit une ligne à une distance X de 
chaque bord d’un carré. 


HUIT est en assembleur. Certes ! 
Mais il procède du même esprit et a 
exactement la même structure. De 
plus, par rapport à QUATRE, il cons- 
truit dans chaque quart d'écran une 
image supplémentaire par retourne- 
ment sur une diagonale et, à des fins 
de symétrie totale, considère l'écran 
comme étant carré avant de l’étirer 
aux dimensions de 280 x 192 qui 
sont celles de la page graphique de 
ce cher Apple. (Notons que le rap- 
port 280/192 peut se réduire à 
35/24, valeurs apparaissant dans le 
programme.) 


Le programme commence donc par 
fabriquer le nombre flottant stocké 
dans F sur cinq octets valant 35/24; 
vous le verrez réutilisé pour ajuster 
les abscisses. 

Vous trouverez ci-après une brève 
description des principales adresses 
et routines utilisées : 


e PAGEI ou $C054 sélectionne la 
page 1 (texte ou graphique) 

e TEXTE ou $C051 sélectionne le 
mode texte (page 1 ou 2) 

e CLAV ou $CO000, si une touche a 
été frappée, est >= $80 et 
contient le code de la touche frap- 


pée 
nn. ou $C010 rend $C000 < 
80 


e HGR2 en $F3D8 identique au 
Basic et de même pour RND 
($EFAE) 

e HCOLOR en $F6F0, appelé avec 
le code (0.7) de la couleur dans 
X, ajuste l’octet $E4 utilisé par 
HPLOT et HLINE. Le point d'en- 
trée habituel, en $F6EC, vérifie 
que X < 8 

e HPLOT en $F457 trace un point: 
l'abscisse (0..279) est codée dans 
2 octets, on charge l'octet haut 
dans Ÿ, l'octet bas dans X et l'or- 
donnée dans A avant d'appeler 
HPLOT 
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e HLINE en $F53A comme en 
BASIC; octet haut de l'abscisse 
dans X, bas dans À et ordonnée 
dans Y 

Un nombre réel est représenté par 

Applesoft sur 5 octets (forme 

compactée) ou, en page 0 pour être 

’mouliné”, étendu sur 6 dans FAC 

($9D-A2) ou ARG ($A5-AA). 

e YTOFAC alias SGNFLT ou $E301 
convertit un entier de 0.255 
chargé en Y en réel dans FAC 

e INTTOFAC en $E2F2 convertit un 
entier (-32768..+32767) chargé 
en À (partie basse) et Y (partie 
haute) en réel dans FAC 

e FACTOINT en $E10C aurait pu 
faire l'inverse. Eh bien non! Il 
tronque, si possible, FAC en entier 
laissé dans 2 octets de FAC : $AO 
et $A1 

e FACTOMEM en $EB2B compacte 
le réel dans FAC (6 octets) et le 
transfère à l'adresse pointée par Y 
(partie haute) et X (partie basse) 

é FACTOARG en $EB63 transfère 
FAC dans ARG 

e FMULTM en $E97F transfère un 
réel en mémoire pointé par Y 


(adresse haute) et A (adresse 
basse) dans ARG et appelle 
FMULTI1 


e FMULTI1 en $E982 multiplie FAC 
par ARG et laisse le résultat dans 
FAC - cette routine ‘prise en mar- 
che” demande l'exécution préala- 
ble du sous-programme GETSGN 
(à la fin de HUIT) 

e FDIV en $EA69 divise ARG par 
FAC et laisse le résultat dans FAC 
- nécessite GETSGN (même re- 
marque que pour FMULTI1) 

e INTL et INTH sont les deux octets 
de FAC où FACTOINT laisse son 
résultat 


Nous savons charger un nombre 
dans FAC, multiplier, diviser, tron- 
quer, appeler RND et les routines 
graphiques. HUIT calcule 35/24, 
choisit ses points, ses vitesses de dé- 
placement (1 à 4) et ses couleurs de 
façon identique aux programmes 
Basic, lit le clavier et boucle de façon 
analogue. 
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Programme QUATRE 120 HPLOT 0,X TO 191,X: HPLOT 0,X + 1 TO 


191,X + 1 
10 REM  QUATRE 130 HPLOT 0,190 - X TO 191,190 - X: HPLO 
50 HGR2 T:0,191 = X TO 191,191 - X 
60 X0O = RND (1) #% 136:Y0 = RND (1) * 93 200 IF PEEK ( - 16384) < 128 THEN 70 
65 X1 = RND (1) % 134:Y1 = RND (1) * 93 210 X = PEEK ( - 16384): POKE - 146368,0 
70 AY = RND (1) % 2 + 1:AX = RND (1) + : ON X = 197 GOTO 50: ON X = 155 G 
CRE OTO 230: ON X < > 160 GOTO 70 
75 BY = RND (1) *% 2 + 1:BX = RND (1) + 220 WAIT - 16384,128: POKE - 16368,0: 
3 + 1 GOTO 70 
80 GX = ABS (AX):QY = ABS (AYD:RX = AB | 230 TEXT : END 


S C(BX):RY = ABS (BY) 
85 HCOLOR= 3 
100 HPLOT X0,Y0O TO X1,Y1 





HPLOT 279 — X0 


,YO TO 279 - X1,Y1: HPLOT X0,191 - | Programme LIGNES 
YO TO X1,191 - Y1: HPLOT 279 - X0 
5191 - YO TO 279 - X1,191 - Y1 Le pi LIGNES 
! = + É = X + 
ni Re L v He AP PREURE 1 +8! éo xo = RND (1) # 276:Y0 = RND (1) » 18 
g 9 


120 IF XO < GX OR X0O > 139 - QX THEN AX 


= AU ALLONS MTL ea 65 X1 = RND C1) # 2761VI = RND (1) # 18 

130 IF YO < QY OR YO > 95 - QY THEN AY = ; ue 
- AY: HCOLOR= RND (1) * 4 TRE CRUE 

140 IF X1 < RX OR X1 > 139 - RX THEN BX " a. 
Se Br Éd Dci 02 75 BY = RND (1) # 2 + 118X = RND (1) 


Pre PÈRE Ne SONORE 2-89 2 RE /THENENC 80 QX = ABS (AX):QY = ABS (AY)D:RX = AB 
— BY: HCOLOR= RND (1) * 4 S (BX):RY = ABS (BY) 

200 IF PEEK ( - 16384) > 127 THEN X = 85 HCOLOR= 3 

PEEK ( - 16384): POKE - 16368,0: 


100 HPLOT X0,YO TO X1,Y1 
ON X = 197 GOTO 50: ON X = 155 GOT , , 
O 240: ON X © > 160 GOTO 60: WaIT | 110 X0 = XD + AX:YO = YO + AYIXI = X1 + B 


: | pe X2YE = Yi + BY 
ruse FORE poil 120 IF XO < GX OR XO > 279 - QX THEN AX 
210 IF RND (1) * 300 > 1 THEN 100 
220 IF RND (0) * 1200 < 1 THEN 50 = 7 AX: HCOLOR= RND (13 # 4 
130 IF YO < QY OR YO > 191 - QY THEN AY 
Po ere = - AY: HCOLOR= RND (1) * 4 
240 TEXT : END c ; : 


140 IF X1 < RX OR X1 > 279 - RX THEN BX 
= — BX: HCOLOR= RND (1) * 4 








Programme CARRE 150 IF Yi < RY OR Y1 > 191 - RY THEN BY 5 
= — BY: HCOLOR= RND (1) * 4 ce 
10 REM CARRE 200 IF PEEK ( - 16384) > 127 THEN X = æ 
50 HGR2 PEEK ( - 16384): POKE - 16368,0: po 
60 HCOLOR= 3: GOTO 80 ON X = 197 GOTO 50: ON X = 155 GOT Fe 
70 HCOLOR= RND (1) x 4 O0 240: ON X < > 160 GOTO 60: WAIT Fe 
80 X = INT € RND (1) * 48) +* 2 — 16384,128: POKE - 16368,0 ti 
100 HPLOT X,0 TO X,191: HPLOT X + 1,0 TO 210 IF  RND (1) * 300 > 1 THEN 100 0 
X + 1,191 220 IF RND (O0) * 1200 < 1 THEN 50 ï 
110 HPLOT 190 - X,0 TO 190 - X,191: HPLO 230 GOTO 40 = 
T 191 - X,0 TO 191 - X,191 240 TEXT : END # 
Source Big Mac 18 Lars EQU $E301 3; YREG = 
19 FACTOINT EQU $E10C :INT(FA 
Programme HUIT.S pr 
20 RND EQU $EFAE 3; RND(FA 
1 xx 262 626266 DE DE D DE DE D DE DE D EH DE DE 36 DE 36 6 DE 36 DEN C) =) FAC 
2 #*GRAPHISMES ALEATOIRES 21 FACTOARG EQU $EB63 :FAC =) 
3 #*PAR THIERRY HAN ARG 
4 #*DATE: 21/7/84 22 FMULTM EQU $E97F 3MEM (CY 
DS HR HN DEN NE DE DE DE DE DE DE DE JE DE DE DE JE DE 36 DE DE DE 36 36 6 À) =} ARG; ARGxFAC =} FAC 
6:35 23 FMULTI EQU $E982 :ARG*FA 
7 PAGE! EQU $C054 C => FAC (NECESSITE GETSGN) 
8 TEXTE EQU $C051i 24 FDIV EQU $EA6é9 :ARG/FA 
9 CLAV EQU $C000 C =} FAC (NECESSITE GETSGN) 
10 STRB EQU $C010 25 INTTOFAC EQU $E2F2 sY/A =) 
11 3 FAC 
12 HGR2 EQU $F3D8 26 ; 
13 HCOLOR EQU $F6F0 27 INTL EQU $Ai 
14 HPLOT EQU $F457 28 INTH EQU $A0 
15 HLINE EQU $F53A 293 
16 ; 30 ORG $F00 3: ZONE D 
17 FACTOMEM EQU $EB2B 3FAC =)» E STOCKAGE 
MEM ÇY,X) 31 X0O DFS 1 
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32 YO DFS 1 
33 X1 DFS 1 
34 Y1 DFS 1 
35 XX0 DFS 1 
36 YYO DFS 1 
37 XX1 DFS 1 
38 YY1 DFS 1 
39 AX DFS 1 
40 AY DFS 1 
41 BX DFS 1 
42 BY DFS 1 
43 GX DFS 4 
44 YREG DFS 1 
45 XREG DFS 1 
46 F DFS 5 ; CONSTA 
NTE 35/24 
47 ; 
48 ORG $803 
49 ;F=35/24 
50 LDY #35 
S1 JSR YTOFAC 
S2 JSR FACTOARG 
53 LDY #24 
54 JSR YTOFAC 
55 JSR GETSGN 
Sé JSR FDIV 
37 LDX #F 
58 LOY /F 
59 JSR FACTOMEM 
60 ; 
61 ;DEBUT DU PROGRAMME 
62 : 
63 INIT LDX #3 ; HCOLOR 
=3 
64 JSR HCOLOR 
65 JSR HGR2 
éé ; 
67 ;CHOIX DES COORDONNEES (0-91) 
# 68 ; 
%) 69 TIRAGE JSR RND92 
+ 70 STX X0 
te 71 JSR RND92 
ra 72 STX YO 
È 73 JSR RND92 
fa 74 STX X1 
el 75 JSR RND92 
| 76 STX Y1 
4 77 ; 
ne 78 ;CHOIX DES UITESSES (1-4) 
ee 79 3 
Li 80 JSR RND3 
81 STX AX 
82 JSR RND3 
83 STX AY 
84 JSR RND3 
85 STX BX 
86 JSR RND3 
87 STX BY 
88 ; 
89 ; 
70 ;VALEURS ABSOLUES 
91 ; 
92 LDX #0 
93 CLC 
94 ABS LDA AX,X 
95 BPL ABS.NEXT 
96 EOR #$FF 3 INVERS 
ION SIGNE 
97 ADC #1 
98 ABS.NEXT STA QX,X 
99 INX 
100 CPX #4 
101 BNE ABS 
102-: 


AE COSPENOERAROEER 
32 


117 


118 


129 
130 


132 


134 
135 


137 


138 


143 
144 


147 
148 


151 
152 


153 
154 
155 


156 
157 
158 
159 


160 
161 

162 
163 
164 
165 
1éé 
167 


; 

3; PLOTS DES 8 

; 

TRACES 
COINS 


JSR 


JSR 
IQUES 

JSR 

JSR 
EN PLACE 


DEPLACEMENT 


…. se ee ss 


LDX 
LDA 
CLC 
ADC 


DEPL 


STA 
INX 
CPX 
BNE 


AX 


INVERSE 


E SIGNE 


T.NEXT 


nn 


LDA 
BPL 
BIT 
CMP 


BNE 
JMP 
CMP 


BEQ 
CMP 
BNE 
LDA 


BPL 
LDA 


SEGMENTS 
TRACE4 
RETOURNE 


TRACE4 
RETOURNE 


DES POINTS 


#0 
X0 ,X 


AX ,X 
X0 ,X 


me 
DEPL 


DEPASSEMENT 


#0 
#95 


ex ,X 
X0 ,X 
INVERSE 


TEST CLAVIER 


; AUATRE 
; SYMETR 


3 PLOTS 
; REMISE 


3ADDITI 


3X0>95- 


:X0 >AX 


; INVERS 


3RIEN 


: EFFACE 


3 = ESC 


3; ESPACE 
3 AUTRE 
3ATTENT 


5SI RND(1)#512=0, NOUVEAUX POINTS 


DO LOY 


#1 


JSR YTOFAC 
JSR RND 
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168 
169 
170 
171 
172 
173 
174 
175 


176 


177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
170 


191 
192 


193 
194 
195 
196 
197 
198 
199 


200 
201 

202 
203 
204 
205 
206 
207 
208 
209 
210 


211 

212 
213 
214 
215 
216 
217 
218 
219 
220 
221 

222 
223 
224 


225 
226 
227 
228 
229 
230 
231 
232 
233 


FACTOARG 


FACTOINT 
INTEL 

BEQ NEWDIR 
UVERAU 

JMP TRAÂCES 
OUCLE 


, 
3SI RND(O)#2048«1, EFFÂACE 


LDY #0 

JSR YTOFAC 
RND 
FACTORRG 
LDA #8 

LDY #0 
INTTOFAC 
FMULT 
FACTOINT 
INTEL 
RET.1 


; 
NEWDIR 


BEQ 
IT CEFFACE) 
JSR NEWCOL 
OUVELLE COULEUR 
JMP TIRAGE 
UX POINTS 
s 
FIN BIT TEXTE 
BIT PAGE! 
RTS 


TRACE4 LDA X0 


AUCHE 


.. 


ROITE 


UCHE 
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:2048 


;=0, IN 
3:20, N 


:NOUVEA 


: HAUT -G 


; HAUT -D 


; BAS-GA 


234 
235 
236 
237 
238 


239 


244 
245 


247 
248 


253 


263 
264 
265 
267 


268 


276 


STA YY1 
JSR TRACE 


; BAS-DR 
OITE 


LDY YY1 3Y 
JMP 


…. »s 


RETOURNE LDA X0 
ION X-Y 

LDX YO 
STA YO 
STX X0 
LDA X1 
LDX Yi 
STA Y1 
STX X1 
RTS 


; INVERS 


, 
, 
3Y=INTCRND(1) #92) 
RND92 LDY #92 
BNE RAND 
3Y=INTCRND(1)#3)+1 
RND3 LDY #3 
JSR RAND 
INX 
RTS 
3Y=INT CRND 1) #Y) 
RAND STY YREG 
LDY #1 
JSR 
JSR 





; RND(1) 


JSR FACTOARG 
LDY YREG 
JSR YTOFAC 
JSR FMULT 3 RND(1) 
*Y 
JSR 
LDX 


RTS 


FACTOINT 
INTL 


FAC=INT(Y#35/24) 
JSR YTOFAC 


LDA #F 
LOY /F 


; 
; 
; 
MULTF 
:35/24 





33 








34 


304 JSR FMULTM 312 STA $AB 


305 JMP FACTOINT 313 LDA $9D 
306 :; 314 RTS 
307 FMULT JSR GETSGN :NECESS 315 ; 

AIRE POUR FMULTI 316 NEWCOL LDY #4 
308 JMP FMULTI 317 JSR RAND 
309 ; 318 JMP HCOLOR 
310 GETSGN LDA $AA 319 : 
311 EOR #42 320 END 


—————————————————Z 
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Vos textes en direct de votre ordinateur 
à nos photocomposeuses 


Gai n de tem ps et éCO n omie Les textes de vos articles, catalogues, 


annuaires ou brochures saisis sur 
votre micro-ordinateur sont envoyés 
ER directement sur notre 
Les por — 85 photocompeuse. 











Nous vous évitons ainsi, 
le coût et le temps de la saisie 
supplémentaire que 
nécessite le traitement 
traditionnel de la photocomposition 
avant l'impression des documents. 













Si vous le désirez nous pouvons 
également nous charger 
de l'impression et du brochage. 
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Le fichier ”’système”, situé sur une 
disquette d'amorçage, comporte qua- 
tre icônes fréquemment utilisés pour 
accompagner les messages d'erreur. 
Voici une petite routine en langage 
machine, qui autorise la récupération 
de ces icônes depuis un programme 
Basic. 


Utilisation de la routine 


Le code objet doit, comme à l’accou- 
tumée, être placé dans un tableau de 


variables. Ensuite, il faut prévoir un 
tableau de 66 variables entières pour 
la définition de l'icône à récupérer 
(un icône est constitué de 32 lignes 
de 32 pixels; il faut donc 64 mots de 
16 bits pour la définition, plus les 
deux mots indiquant la taille, puisque 
l'icône sera affiché avec l'instruction 
PUT). Pour le passage des paramè- 
tres depuis le Basic vers la routine, il 
faut utiliser : 


CALL  ADR!(ID%,VARPTR(T%(0))) 


19° PROGRAMME DE DEMONSTRATION 


29° 


49 


39 CLS-DEFINT A-Z:DIM C(18),T(65) 


59 ‘ Code objet à implanter en mémoire 


69° 


79 DATA &h4E56,9,&h42A7,&h3F2E,&hC,&hA9BB 
89 DATA &h2957,&h2259,&h246E,&h8,&h24FC,32 
99 DATA 32,8H791F,&H24D9,8&H5 1C8,8&HFFFC 


199 DATA &HA4ESE,&H4E 75 
119" 


129 ‘ Identificateurs des icônes 


139” 
149 DATA 9,1,2,-6947 
159 


169" Implantation du code objet en mémoire 


179" 


189 FOR 1=9 TO 18:READ C(i)}:NEXT 


199 D-9:G0SUB 1 79 
299 RESTORE 88 

219 D=199:GOSUB 179 
229 GOTO 159 


239" S.p. chargement et/ou affichage des icônes 
249 FOR P=59 TO 298 STEP SZ:READ ID 
259 AI=VARPTR(C(B)):CALL AI(ID, VARPTR(T(B))) 


268 PUT(P+D,P),T:NEXT 


Récupérez les icônes du système 


Marianne Sutz 


avec la première version du Basic 
Microsoft; 

ADR! ID%,VARPTR(T%(0)) avec la 
version actuelle. 

ADR! représente l'adresse de la rou- 
tine. 

ID% représente l’identificateur de 
l'icône (-6047, 0, 1 ou 2) 
VARPTR(T%(0)) passe à la routine 
l'adresse de base du tableau de va- 
riables destiné à recevoir l'icône. 





ID--6047 








279 RETURN nos neseneensssssssse 
: Cette routine charge un icône appartenant au "fichier système” (ressource) en 
0000 ; mémoire (si ce n'est déjà fait) et transfère sa définition depuis la zone de 

2000 ; mémoire choisie par le système vers un tableau de variables. 
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0000 
0000 .Trap _Geticon $A9BB 
456 0909 LINK A6,*0 
2004 42A7 CLRL (SP) : Réserve 4 octets au sommet de la pile. 
0006 : ; L'adresse du pointeur sur la définition 
0006 : ; de l'icône sera retournée à cet endroit. 
O006 3F2E GOQC MOVE 12(A6),-(SP) ; L'indentifieur de l'icône, passé depuis 
2OA , ; le programme Basic, est empilé (2 
GUGA ; ; octets). 
OG9A A9BB _Geticon ; Chargement en mémoire de la définition 
OGC : ; de l'icône et retour de l'adresse du 
0 : ; pointeur à l'emplacement réservé 
DEQC ; ; précédemment. 
DC 2957 MOVEAL (SP),Ag ; L'adresse du pointeur est placée dans 
GOCE : : le registre d'adresse AS. 
ORCE 2250 MOVEAL (AB)A! : Le registre AG contient l'adresse où se 
2019 : : trouve l'adresse du premier des octets 
2018 | ; formant la définition de l'icône 
2019 ; (indirection). Après cette instruction, 
891 ; l'adresse du premier octet se trouve 
8619 : dans le registre d'adresse A1. 
0019 246€ 9608 MOVEAL 8(A6),A2 : L'adresse de base du tableau de 66 
2614 : : variables entières est placée dans A2. 
0014 24FC 00290929 MOVEL  *$22298229 (A2) ; Les deux premiers éléments du tableau 
GO 1A ; ; de variables sont initialisés à 32 ($28) 
201A ; car les icônes font 32* 32 pixels. Ceci 
Og1A ; ; permet l'utilisation de l'instruction 
201A : PUT dès le retour au programme Basic. 
GG1A 7G1F MOVEQ  #31,D8 ; 128 octets, soit 32 mots de 32 bits 
@1C 24D9 Boucle MOVEL  (A1}H+,(A2H ; Sont nécessaires à la représentation 
GG1E 51C8 FFFC DBRA DS,Boucle ; d'un icône. Le compteur de boucle DZ 
9022 4E5E UNLK A6 : est initialisé à 31 (la sortie de boucle 
2924 475 RTS ; a lieu lorsque DG est égal à -1). 

Sur la disquette Macintosh 


& Basic Pascal initietion 


Assembleur 


ë revvelrancophone 
des Utilisateurs qu. 


)SIh 


\Maeint 


Informations. 





numéro 15/16 


vous trouverez les programmes Basic 
"Editeur", “Mac/Applell", “Paint/ 
Basic", “Paint/Start”, et d'autres 
programmes “exemples” employés 
pour l'illustration des articles publiés 
dans les numéros 15 et 16 de Pom's. 


Les polices de Caractères “Los 
angeles" 24 et 12 points, “CAIRO", 
"Mos Elsley" 24 et 12 points, 
“Hollywood et "Manhattan. 


Les programmes : 

e LOCALIZER configuration du 
clavier AZERTY pour la France (ou un 
autre pays). 

e Copie de disque : pour effectuer 
des copies de disquettes avec un seul 
lecteur sur un Macintosh 128Ko, en 
seulement quatre passages. 

15000 F TTC franco 

bon de commande page 78) 
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Dans le précédent numéro de Pom's, 
nous vous proposions un programme 
permettant d'afficher ou de lister les 
informations sur les fichiers. Nous 
avons pensé qu'il pourrait être inté- 
ressant de pouvoir manipuler directe- 
ment ces informations; c’est l’objet 
de ce programme. On ne peut bien 
sûr pas tout modifier, puisqu'il serait 
dangeureux de toucher aux indica- 
tions sur la position physique ou logi- 
que des fichiers, mais ce programme 
autorise la modification du nom, du 
type, du nom de créateur ainsi que 
de divers paramètres liés à l'appa- 
rence et à la position de l'icône re- 
présentant le fichier. 


Mode d’emploi 


Ce programme fonctionne avec la 
version 2 du Basic Microsoft, et avec 
toutes les configurations (Macintosh 
128 et 512Ko, avec ou sans lecteur 
de disquettes externe). Toutefois, 
avec un Mac 128K0, il est préférable 
de ne pas entrer les REMarques,; ceci 
autorise une vitesse d'exécution ac- 
crue (le programme situé sur la dis- 
quette Mac numéro 18 ne comporte 
pas de remarques). Pour ceux d’en- 
tre-vous qui ne disposent pas encore 
de la nouvelle version du Basic, si- 
gnalons que les routines en langages 
machine fonctionnent aussi avec l’an- 


Modification des informations 


pour le ”Finder” 


cienne version; le programme est 
donc facilement adaptable. 


Modification du nom de fichier 


Un nom de fichier peut contenir jus- 
qu'à 63 caractères et, bien sûr, ne 
doit pas être de longueur nulle. 
Enfin, il ne peut pas comporter le ca- 
ractère ”:”, qui est utilisé par le sys- 
tème comme séparateur entre le 
nom du volume et le nom de fichier. 
Le programme intercepte toutes les 
erreurs possibles. D'une manière gé- 
nérale, il vaut mieux s'abstenir de 
modifier les noms des fichiers ”’systè- 
mes”, afin de ne pas perturber le 
fonctionnement du système d’exploi- 
tation. Si cela devait arriver, il n'y 
aurait rien de grave puisque ce que 
fait le programme n'est pas irréversi- 
ble. 


Modification du type de fichier 


Le type de fichier est constitué de 
quatre caractères ASCII. Si vous en- 
trez une chaîne comportant moins de 
quatre caractères, les emplacements 
laissés libres seront remplacés par un 
octet nul. Dans la zone de saisie, un 
octet nul est remplacé par un point 
afin de visualiser sa présence. 


Modification du nom de créateur 


Les remarques au sujet du type de 
fichier sont aussi valables ici. Il 


Jean-Luc Bazanegue 


convient de signaler que le nom du 
créateur est utilisé par le “Finder” 
pour déterminer le programme d’ap- 
plication à partir duquel est issu le fi- 
chier. Par exemple, un fichier de ca- 
ractères issu du Font Mover” a, 
comme nom de créateur, *FMOV”. 
Si l’on modifie cette chaîne, une ten- 
tative d'ouverture du fichier provo- 
quera l'affichage du message ”Il n'y 
a pas d'application pour ouvrir ce 
document”. 


Position horizontale et verticale 
de l’icône 


Si l'icône du fichier se trouve sur le 
bureau, la position, en pixels, est re- 
lative à l'angle supérieur gauche de 
l'écran. Dans le cas où l'icône est 
situé dans la fenêtre d'un dossier (ou 
la fenêtre du volume), la position est 
relative à l'angle supérieur gauche de 
la fenêtre au moment de sa création. 


Paramètres divers 


Il est aussi possible de rendre un fi- 
chier invisible, de le placer sur le bu- 
reau alors qu'il se trouvait dans une 
fenêtre, etc. Nous ne nous éten- 
drons pas sur ces points, expliqués 
en détails dans le précédent numéro 
de Pom's. 





Edit 







Type de fichier 





© Visible O Bureau 


59 Bundle © Lolume 
[] Système © Dossier 
O] Verrouillé © Corbeille 
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Fichier @[Microsoft BASIC 





Créateur du fichier 







Position de l'icône dans la 
fenêtre (en pixels) : 


Position horizontale ©[-28 | 







Position verticale 
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Routines utilisées par le programme Basic 









0000 .Trap  _GetVolinfo $A897  ; Rretourne les informations sur le volume. 
0000 .Trap  _ReName $AGGB  ; Change le nom du fichier et/ou du volume. 
0000 .Trap  _GetFileinfo $AB@C  ; Retourne les informations sur le fichier. 
0000 .Trap  _SetFileinfo $AGED  ; Modifie les informations sur le fichier. 
2090 .Trap  _MountVol $AGEF  ; Charge en mémoire les informations sur la disquette. 
2000 .Trap  _OffLine _$AG35  ; Libère la mémoire utilisée par le volume. 
0000 .Trap  _DeleteMenu $A936  ; Annule un menu (en mémoire). 
0000 .Trap _DrawMenuBar $A937  ; Réaffiche la barre des menus. 
0000 
BODD xxxx  xxxX Tampon DCBL 29,8 : Tampon de 88 octets pour les ent/sorties. 
2D5D xxxX  XXXX Nom DCBL 16,8 ; Tampon de 64 octets pour le nom de volume ou le nom 
2099 L ; de fichier. 
2098 xxxX  xXxXX N.Nom  DCBL 16,9 ; Tampon de 64 octets pour le nouveau nom de fichier. 
GOFFFFFF Masque EQU SOOFFFFFF ; Constante pour adresses sur 24 bits. 
209 
GDS : Sous-programme commun aux deux routines. il est utilisé pour transférer les 
208 ; caractères du nom de volume ou du nom de fichier depuis le programme Basic 
gang ; vers le tampon “Nom” ou le tampon “N.Nom”. 
2209 : Le premier segment (Sp.N.F) est utilisé uniquement pour les noms de fichier. 
209 
GOD9 226€ 0006 Sp.NF  MOVEAL 8(A6),A1 ; L'adresse du descripteur de la chaîne, placée dans la ; 
SeD4 Ë : pile, est transférée dans A1. 
@@D4 72 3E MOVEQ  #62,D1 : DT est utilisé comme compteur de boucles. 
BOD6 14E9 gg! SpN.V MOVEB 1(A1)(A2H  ; Place le nombre de caractères formant le nom dans le Fe 
GRDA ; premier octet du tampon Nom ou N.Nom. fe 
BODA 2429 pi MOVEL 1(A1),D2 ; L'adresse de la chaîne est placée dans D2. ; 
GODE 9262 GOFFFFFF ANDIL  #Masque,D2  ; Supprime l'octet de poids fort pour obtenir une adresse 
GE A : : valide sur 24 bits. 
GOEA 2642 MOVEAL D2,A3 : L'adresse obtenue est placée dans A3. 
OGE6  14DB TrNom MOVEB (A3},(A2}  ; Boucle de transfert de la chaîne. 
QES S1C9 FFFC DBRA D1,Tr.Nom : DT est décrémenté de 1 et comparé à -1. Si différent, 
BEC : ; branchement sur “Tr Nom”. 
BEC 4E75 RTS ; Retour à la routine appelante. 
QGEE 
QGEE ; Routine utilisée pour lire les informations sur le volume et le fichier à traiter. 
QGEE : Pour le volume, seul le numéro de référence est retenu. Les informations 
@REE : obtenues sont passées au programme Basic par l'intermédiaire du tampon 
QQ@EE : de 88 octets “Tampon” situé, pour le programme Basic, dans les 49 premiers 
Q@EE ; éléments du tableau de variables entières TC. 
OGEE 
GGEE 4:56 0009 Linfo LINK A6,°8 
OGF2 AIFA FF@C LEA Tampon,AG : L'adresse de base du tampon (correspondant à 
26F6 ; ; VARPTR(TC(@)) ) est placée dans AG. 
O0F6 2248 MOVEAL AA : Copie de AG dans A1. 
2OF5 : Réinitialisation du tampon (mise à zéro). 
GF8 7913 MOVEQ  *#19,Dÿ : DS est un compteur de boucles. On charge la valeur 19 
CHFA 4299 T.Zero CLRL (A1}H : dans le compteur. Comme l'instruction DBRA provoque 
GUFC S1C8 FFFC DBRA D,T .Zero : une sortie de la boucle lorsque le compteur est égal à 
0199 ; ; 1, on met à zéro 29 mots de 32 bits, soit 89 octets. 
G199 ASFA FF4E LEA Nom,A2 : Place l'adresse du tampon “Nom” dans A2. 
9194 214A gg12 MOVEL  A2,18(A8) ; Adresse du tampon “Nom” dans A8+ 18 (voir Pom's 
8198 : ; numéro 17," Catalogue sur Imp."). 
9196 226E PC MOVEAL 12(A6),A1 ; L'adresse du descripteur de la chaîne contenant le nom 
g1aC : : du volume, placée dans la pile au moment du "CALL”, 
g12C - : est transférée dans le registre d'adresse A1. 
G18C 721A MOVEQ  #26,D1 : Compteur de boucles pour le sous-programme Sp.N.V. 
B1S ; ; Un nom de volume contient au maximum 27 caractères. 
A NN 
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S1S& 61C6 BSRS Sp.N.V 
9119 5368 BIC SUBQ #1,28(A8) 
g114 | 

@114 : 

g114 

9114 

9114 AG97 _GetVolinfo 

9116 ASFA FF38 LEA Nom,A2 
Q11A 2144 12 MOVEL A2,18(A9) 
Q11E 61B9 BSRS Sp.N.F 
9129 4268 gAIiC CLR 28(A8) 
9124 ABC _GetFileinfo 

9126 ÆESE UNLK A6 

9128 475 RTS 

g12A 

g12A 

g12A ; modifier le nom de fichier. 
G12A 

Q12A ÆE56 0900 Ealnfo LINK A6,°9 
@12E AIFA FED9 LEA Tampon, AG 
9132 A3FA FFIC LEA Nom,A1 
9136 2149 gg12 MOVEL  A1,18(A8) 
913A AGED _SetFilelnfo 

913C A5FA FF52 LEA N.Nom,A2 
9149 2144 gBIC MOVEL A2,28(A8) 
9144 618A BSRS Sp.NF 
8146 AGGB _ReName 

9148 AG35 _OffLine 

914A 363C 0991 MOVE 1,05 
914 3143 @916 Er Drive MOVE D3,22(A8) 
9152 AGE MountVol 

9154 363C 0992 MOVE +#2,D3 
9156 3626 19 MOVE 16(A8),D4 
915C 66F9 BNE.S Er Drive 
@15E  4E5E UNLK A6 

9168 475 RTS 

9162 

8162 

9162 

9162 456 0900 EMenu LINK A6,*8 
9166 5F2E 0906 MOVE 8(A6),-{SP) 
S16A A936 DeleteMenu 

916C A937 —DrawMenuBar 

G16E  4ESE UNLK A6 

9179 ÆE75 RTS 


Disquette Mac 17 


Catalogue sur imprimante 

Pour obtenir toutes les informations sur les 
fichiers (type, créateur, index, position du 
premier bloc pour la partie Données”, position 
dd premier bloc pour ls partie Ressource”, 
longueurs logiques et physiques, fichiers 
protégés où non, icônes invisibles, etc ) sur 
papler où à l'écran. 

Routines "BLOAD°" et "BSAVE" 

Simileires eux routines "EBLOAD" et BSAVE" de 
l'Apple //, elles autorisent des satrvegardes et 
rapides de fichiers binaires 
graphiques, tableaux de ‘Variables, 
tables de références, etc. 1 
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; Branchement vers le sous-prog. "Sp.N.V”. 

; Le mot de 16 bits situé à l'adresse A@+28, mis à zéro 
: par la boucle T.Zero, est décrémenté de 1 et devient 

; ainsi négatif. Cela indique à la routine _GetVolinfo 

; qu'elle doit utiliser le pointeur (A@+18) sur le nom 

; de fichier. 


; On effectue les mêmes opérations que pour la routine 

: précédente mise à part l'adresse A@+28 qui est remise 
; à zéro pour indiquer à la routine _GetFilelnfo qu'elle 

: doit utiliser, pour déterminer le volume, le numéro de 

; référence placé dans A@+22 par _GetVolinfo. 

; Retour au 

; programme Basic. 


; Routine pour modifier les informations utilisées par le “Finder” et 


; Passage du nom de fichier initial aux routines système. 
; La méthode utilisée est la même que pour les routines 
; précédentes. 


; Modification des informations. 

; On passe maintenant le nouveau nom du Fichier. Un 
; pointeur sur ce nouveau nom doit se trouver dans 
; l'adresse AD+28. 


; On vide la mémoire des informations sur le volume, 

; puis on les recharge avec la routine système 

; MountVol. Ceci permet d'avoir toujours en mémoire 

; des informations à jour. La routine _MountVol utilise 

; le numéro du drive; pour déterminer ce numéro, on 

; utilise le code d'erreur retourné dans A+ 16. On essai 
; d'abord sur le drive 1; si un code d'erreur est 

; retourné (A8 16<>@), on recommence sur le drive 2. 


; Routine pour supprimer certains menus (voir Pom's numéro 17). 





Pom's n° 18 


Le Basic Microsoft offre la possibilité 
de redéfinir la forme du curseur en 
plaçant des codes dans un tableau 
de variables. Ceci est très intéressant 
mais, s’il on se penche quelques mi- 
nutes sur le problème, on s'aperçoit 
qu'il est possible d’utiliser cinq cur- 
seurs prédéfinis. Les quatre premiers 
font partie du dossier système alors 
que le dernier est issu du Basic Mi- 
crosoft. 


Une très courte routine est utilisée 
pour le chargement et l'affichage du 


Les curseurs du système 


curseur désiré. On utilise deux 
"Traps”; le premier charge en mé- 
moire la définition du curseur (cur- 
seur, masque et position du ”point 
chaud”) et retourne l’adresse où se 
trouve le pointeur sur la structure en 
question; la seconde est l'équivalent 
de l'instruction CALL SETCURSOR. 


Julien Thomas 


Le passage de l’identificateur (nu- 
méro du curseur) se fait comme 
d'habitude par la pile, avec CALL 
ROUTINE!(ID%) (ou ROUTINE! 
ID% avec la seconde version du 
Basic Microsoft). 





10" PROGRAMME DE DEMONSTRATION 


20 DEFINT A-Z.CLS 
30 ‘ Data pour code objet 


El 
RS 


40 DATA &H4E56,0,&h42A7,&h3F2E,8 ie . 
50 DATA &hA9B9,&h2057,&h2E90 

60 DATA &HABS 1 ,&H4ESE, &H4E 75 

70 FOR N=0 TO 10:READ C(N):NEXT 


80 AI=VARPTR(C(O)) 


90 INPUT “Numéro du curseur ? ",N 


100 CALL SHOWCURSOR 
110 CALL AI(N):GOTO 90 


2000 ; Récupération des curseurs prédéfinis. 
0000 

0000 .Trap _GetCursor  $A9B9 
2000 .Trap _SetCursor  $A851 
0000 

0000 456 0000 LINK A6,°9 
094 4247 CLRL SP) 
0006 3SF2E 0006 MOVE 6(A6),-(SP) 
OGGA A9B9 _GetCursor 

OC 2957 MOVEA L (SP),Ag 
OOGE 2E99 MOVE L (AB) (SP) 
2019 A651 _SetCursor 

9912 ÆE5E UNLK A6 

214 475 RTS 
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Disquette Mac 18 


Cette nouvelle disquette comporte le nouveau fichier “système” 
ainsi que la version 4.1 du “Finder”, beaucoup plus rapide et 
complète que la précédente. Le programme “System update” 
autorise l'implantation des nouveaux "Finder" et “système” sur vos 
anciennes disquettes. "BR DEMO” est un programme d'application qui 
permet l'affichage temporisé d'écrans créés avec la séquence de 
touches “Commande-Shift-Majuscule-3". "Font/DA Mover” est une 
version nettement améliorée de “Font Mover”. De plus, il permet de 
manipuler les accessoires de bureau. Enfin, outre les programmes 
publiés dans ce numéro, vous trouverez les polices de caractères de 
l'imprimante Laser Writer “Times”, “Courier”, “Symbol” et 
“Helvetica” (utilisables avec l'imprimante ImageWriter). 





















Logiciels de troisième génération 










La première génération des logiciels sur Mac était 
conçue pour 128K de mémoire. 









La seconde génération, née avec le Finder 1.1g, 
était destinée aux utilisateurs de Macs 512K, même 
si ce Finder fonctionnait en 128K. Certains pro- 
grammes de cette génération exigent 512K de 
mémoire centrale, d'autres, à l'instar de Think Tank, 
ont une version 512K plus puissante. 













La troisième génération vient d'arriver, avec le 
Finder 4.1, la version 4.5 de MacWrite et la 
version 1.5 de MacPaint. Le nouveau système, 
outre le Finder 4.1 dont nous parlons plus bas, 
ajoute l'accessoire Sélection d'imprimante, met à 
jour le fichier System et remplace le fichier 
ImageWriter par une nouvelle version autorisant 
l'impression à 50% de réduction et fonctionnant sur 
les ImageWriter 12" et 15". 





Le nouveau Finder 


Qu'apporte de plus le nouveau Finder ? En résumé : 

* la possibilité d'imprimer le catalogue de la dis- 
quette; 

+ l'affichage d'un cadenas pour les fichiers verrouil- 
lés, avec les catalogues sous forme de texte; 

* la possibilité de copier des fichiers sur un disque 
ouvert; 

* la possibilité de mettre un disque dans la poubelle 
(éjection et disparition de l'icône du disque); 

* une option du menu Fichier pour la création d'un 
nouveau dossier; 

* un Mini-Finder, dans le menu Spécial, permet 

de se déplacer rapidement entre des programmes et 

documents d'usage fréquent. 




















Et nous n'avons pas tout dit … Nous vous laissons 
découvrir le reste, y compris le gain en vitesse. 


Pom's recrute encore ! 


Pour faire face à sa croissance continue, 
Pom's recherche un collaborateur ou une 
collaboratrice à temps plein. 


Connaissance parfaite de l'assembleur, de 
l'Apple //, du DOS et du ProDOS requise. Il 
faut aimer le travail en équipe, être capable 
de s'exprimer clairement et avoir un niveau 
acceptable en orthographe. 
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5 Micro-Journal 





























Page réalisée avec Ready-Set-Go, programme diffusé par BIP, et imprimée sur LaserWriter avec les polices Helvetica et Times. 


Hervé Thiriez 











Gestion de fichiers sur Mac Disquette N°18 


du cahier Macintosh 













Sans le moindre souci d'exhaustivité, nous 
faisons ici le point sur les logiciels permettant 
de faire de la gestion de fichiers sur Macintosh, 
même s'ils possèdent parfois des possibilités 
supplémentaires. Lire la rubrique des Micro- 
Informations pour les informations générales 
en matière de logiciels sur Apple. 





















La disquette Macintosh de ce numéro de 
Pom's comporte tous les programmes parus 
dans le cahier Mac, mais elle vous réserve en 
outre des cadeaux surprise : 























+le System Update, qui transforme vos 
vieux fichiers Système en remplaçant le 
Finder 1.1g par la version 4.1 et l'ancien 
fichier ImageWriter par le nouveau. 

*le Font/DA Mover, pour déplacer des 
polices (fonts) ou des accessoires de bureau 
d'une disquette à une autre. Les polices 
peuvent provenir d'un système ou d'un fichier 
quelconque. Un excellent programme, valori- 
sé par le nombre croissant d'accessoires de 
bureau qui traînent partout aujourd'hui. 

+ le programme Demo, dû à Bruno Rives, 
qui vous permet de monter une séance de 
présentation avec plusieurs écrans. 

+ les quatre polices de caractères utilisés à ce 
jour par la Laser Writer. 










Hélix est un programme de base de données 
relationnelle fonctionnant exclusivement avec 
512K. Nous avons été impressionnés par ses 
possibilités, qui se payent quand même par un 
certain effort d'apprentissage. Ce programme 
puissant sera évoqué plus en détail dans un 
Pom's ultérieur. Il est vendu par Softsel - Tél 
(1) 768.59.50 au prix de 4.763 FF HT. 




































CX MacBase, avec sa version M20, résoud 
la grande majorité des bugs encore présents 
dans la version M10. Contacter votre revendeur 
ou la société Controle X pour la version M20. 












De son côté, ABC Base est maintenant lui 
aussi disponible dans sa nouvelle version, où 
les bugs antérieurs sont aussi en grande partie 
résolus. De plus, la documentation est sensi- 
blement améliorée. 









Pour transformer toutes vos disquettes 
comportant l'ancien système, il suffit de 
cliquer sur l'icône System Update. 


EX. LA & 


Font/DA Mover 




















Enfin, depuis le temps qu'on l'attendait, File 
est maintenant vendu par Microsoft. Nous 
devons souligner sa grande facilité d'usage, sa 
rapidité de traitement, son absence apparente 
de bugs, et son parfait fonctionnement en 
128K. En échange de quoi, ses fonctionnalités 
sont certes moins riches que celles des 
précédents : ainsi, les possibilités de calcul 
sont tout-à-fait sommaires, et il n'est pas 
question de réaliser des traitements reliant entre 
eux deux fichiers ou plus. On peut réaliser des 
fiches présentant joliment, mais au prix de 
certaines manipulations. 


System Update 












La mise à jour du système d'une disquette ne 
modifie en rien ses caractéristiques 
spécifiques telles que le clavier ou les 
polices qui y sont intégrées. Aucun risque 
donc … 










Le seul effet négatif que nous ayons pu 
constater est que les dossiers réalisés avec 
l'ancien système et relus par le nouveau 
perdaient leur nom. Par contre, leur structure 
de dossier et leur contenu restent inchangés, 
que le système ayant servi à les définir soit 
français ou américain. 
















Nous attendons donc avec une grande impa- 
tience le futur intégré de Microsoft qui a tout de 
même réussi la performance notable en micro- 
informatique de placer la plupart de ses produits 
dans la série des bestsellers. 

























Les nouvelles versions de MacWrite et 
MacPaint se trouveront, pour leur part, sur la 
disquette Macintosh du N°19 de Pom's. Nous 
profiterons certainement de l'occasion pour 
joindre encore à cette disquette d'autres 
nouveautés relevant du domaine public, en 
plus des programmes publiés dans Pom's. 










En ce qui concerne Jazz, à la date de rédaction 
de cet article, on ne säit pas encore s'il ne 
faudra pas avoir, outre 512K, un disque dur pour 
pouvoir l'utiliser dans des conditions pour le 
moins acceptables. 
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Aldo Reset a la parole 


Pom's 


| Beaucoup a été dit sur les "pirateurs", et Pom's a trouvé juste de leur donner la parole, afin qu'ils aient la possibilité de dire ce 
: qu'ils pensent sans que leurs propos ne soient abusivement interprétés ou même, comme cela leur est déjà arrivé avec une 
: revue spécialisée dans le choc des clichés, purement inventés. Nous avons donc rencontré Marc, plus connu sous le nom de 


Aldo Reset, membre fondateur du Clean Crack Band. Quel est le possesseur d'un Apple IT Plus, //e ou //c qui n'a eu entre les 


4 mains des disquettes signées du Clean Crack Band, ou de ses membres les plus éminents : Aldo Reset, Tony NMI, Laurent 
4 Rueil ou Johnny Disquette ? 





La première impression que donne Marc, 
appelons-le plutôt Aldo pour respecter son nom 
de guerre, c'est sa jeunesse. Il compte 20 
printemps et, quand on sait qu'il œuvre sur son 
Apple Il+ depuis plusieurs années déjà, on voit 
qu'il a démarré tôt. 


NDLR : Pom's n'a pas pu retranscrire l'interview 
in extenso, la discussion ayant duré plus d'une 
heure et demie. Nous avons donc extrait des 
questions et réponses typiques, avec un grand 
souci de ne pas dénaturer les propos échangés. 


P - Le piratage qui a déjà eu lieu vous pose-t-il un 
problème, légalement ? 


A - Je ne vois pas très bien qui m'en voudrait … 


P - Dans la mesure où vous avez déjà signé un 
certain nombre de disquettes Apple II, les éditeurs 
ne peuvent-ils vous ennuyer ? 


A - Les éditeurs américains ? A mon avis, ils 
feraient déjà quelque chose contre ceux qui 
existent aux Etats-Unis, avant de venir nous 
embêter. Les éditeurs français, sans vouloir être 
méchant pour eux, disons qu'ils n'ont pas le 
même niveau. 


P - Comment signez-vous les disquettes que vous 
“déplombez" ? 


A - Avant, je signais Aldo Reset ou CCB; 
maintenant, je ne fais plus grand chose. CCB est 
un groupe; on a toujours été plusieurs dedans. On 
a commencé, on était au départ vraiment deux, 
Tony NMI et puis moi. Ensuite, Laurent Rueil 
qu'on a rencontré. Au fur et à mesure, on mettait 
tous les copains dedans. Ça fait toujours plaisir 
de faire partie de quelque chose. 


Alors, on s'est retrouvé, on a bien été une 
quinzaine, pendant un moment. Et puis, l'année 
dernière, ça n'allait plus. Je n'arrivais plus à 
savoir qui était du CCB; j'entendais parler d'untel 
qui était du CCB et que je ne connaissais même 
pas. Alors on a fait un petit nettoyage. On s'est 
retrouvé à cinq. C'est à peu près l'époque où on a 
laissé tomber, de toute façon. 


P - Vous ne déplombez plus ? 


A - Non, pas vraiment. De temps en temps, 
parce que d'abord ça nous plaît. C'est surtout ça. 


P - Est-ce que cela a été une industrie à un 
moment donné ? 


A - Mettons que je faisais cela tous les jours. 
Pendant une bonne partie de la journée et de la 
nuit. Cinq par jour pendant un moment. 


P - Cela a-t-il été une activité commerciale ? 


A - On n'a jamais gagné d'argent. On n'est 
jamais passé au stade industriel, c'est-à-dire 
déplomber des trucs exprès. C'était pour l'amour 
de l'art, et surtout pour avoir les programmes. 
S'il fallait acheter tous les trucs qui sortent, moi 
je pourrais travailler encore pendant dix ans, je 
ne pourrais pas les avoir. Ça coûte quand même 
cher, et puis c'était un moyen facile et agréable. 
On n'allait pas se gêner. 


P - Y a-t-il d'autres groupes que le Clean Crack 
Band ? 


A - Il y en a plein. Ça a réellement commencé 
l'année dernière. Il y a plein de monde. 
Maintenant, cela ne vaut plus tellement la 
peine. À la limite, ça ne me dérangerait pas de 
continuer, mais ça prend du temps, et ça ne 
rapporte pas. 


P - Comment déplombe-t-on ? 


A - Il y a plusieurs méthodes pour déplomber. Il 
y a la méthode sale, qui est malheureusement 
trop répandue, avec les cartes d'interruption, les 
choses comme cela. Non seulement, ça ne 
marche pas toujours, mais c'est rien, c'est même 
pas drôle. Moi, j'ai une carte comme ça; je m'en 
sers, mais pas pour déplomber. Je m'en sers 
quand je suis en train de jouer, quand je veux 
absolument voir la fin du jeu; dès que je me fais 
tuer, je reviens au stade précédent avec ce que 
j'ai sauvé de la carte. 


Dans la méthode propre, il faut suivre tout, 
depuis le début, à la main, sans rien du tout 
en hard, juste à la ruse. On suit pas à pas. Si 
on veut faire quelque chose de bien, il faut 
aller jusqu'au bout, suivre et bien comprendre 
ce qui se passe. Mais quand en veut ensuite 
faire (de la disquette déplombée) quelque 
chose de standard, il faut aussi faire 
proprement. 


P - Est-ce que, pour un système comme 
ProLock, vous avez un mode de déplombage 
systématique, ou est-ce que ce travail est 
personnalisé ? 


A - ProLock, c'est même pas la peine de 
s'énerver avec Ça. C'est tellement ridicule que 
(rires). 


P - Il paraît que certains pirates déclarent 
pouvoir déplomber n'importe quel logiciel en 
une demi-heure, montre en main. Est-ce vrai ? 


A - C'est des bêtises. Une demi-heure, ce 
n'est pas standard. Il y a 90% des machins 
qui sont faisables en cinq minutes. Faut le 
dire. Maintenant, dans les 10% restant, il y 
en a qui prennent deux heures, d'autres plus. 
Omnis 3, j'ai passé une semaine dessus, à 
bosser nuit et jour; je ne dis pas ça pour être 
vache avec Ka, mais c'était bien. C'est pas 
que la protection était une des meilleures, 
mais elle était hors du commun, différente de 
tout ce qui se faisait. Sun Dog, c'est encore 
un bon exemple; une semaine aussi. Une 
semaine, ça a été le maximum. Pas du matin 
au soir, mais en y pensant tout le temps, la 
nuit aussi. Sun Dog et Omnis 3, c'était très 
dur, mais on pouvait faire plus dur encore; ils 
auraient pu rajouter des trucs. Ils se sont dit 
"C'est pas la peine"; à mon avis, ils avaient 
raison. 


P - Peut-on faire un programme qu'on ne 
puisse pas déplomber ? 


A - Pas possible … on passera le temps qu'il 
faudra, mais on l'aura. 


Cette interview a aussi été réalisée avec Ready-Set-Go et l'imprimante LaserWriter - On peut aussi utiliser pour cela les programmes … 
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P - Vous travaillez aussi sur le Macintosh ? 


A - Pas vraiment, je commence un peu. Le 
68000, c'est pas mal, mais le Macintosh, il 
traîne un peu, je trouve. Je m'attendais à 
mieux. Tant qu'il n'y aura pas une vitesse plus 
rapide … A 10 MHz, on peut commencer à 
travailler. Ceci dit, je commencerais à 
travailler dessus si on m'en donnait un. Je ne 
peux pas encore en acheter un maintenant. 


P - Les protections semblent meilleures sur le 
Macintosh. 


A - C'est normal. D'abord, il y a 128K ou 
5S12K au lieu de 64K; fouiller dans 64K, à la 
limite, c'est faisable. Dans 128 ou 512, c'est 
plus dur. En plus, dans le 68000, il y a des 
registres à ne pas savoir où on en est. Moi, 
j'ai encore rien déplombé sur Mac; un truc, 
quoi, mais c'était vraiment ridicule. 


Autre pirateur - Les grands spécialistes du 
piratage sur Macintosh, c'est du côté du soleil. 
On parle de Nice et Marseille. On n'est même 
pas sûr des villes. La raison fondamentale de 
ce piratage-là, c'est le chômage. 


P - Les protections d'ACI ne sont pas mal, 
n'est-ce pas ? 


A - Laurent Ribardière (créateur d'ABC Base, 
diffusé par ACT), c'est quelqu'un qui n'est pas 
négligeable. 


P - Que faisiez-vous au début du CCB ? 


A - Moi, j'étais au lycée. Laurent venait 
d'avoir eu son bac; Tony était aussi au lycée. 
On faisait ça pour s'amuser. Moi, je suis 
toujours étudiant, je fais des études en 
biologie. Les autres, il y en a qui travaillent, à 
écrire des logiciels pour des boîtes connues. 


Autre pirateur - Aldo et un certain nombre 
d'autres pirateurs du CCB travaillent 
maintenant, sous des formes variées, avec la 
société JRD, qui part du principe que les bons 
pirateurs sont de bons programmeurs. 


À - A partir du moment où on déplombe bien, 
on sait programmer bien. Si on déplombe mal, 
on ne sait pas programmer. 


Il y a ceux qui savent suivre un programme, 
regarder une routine en langage machine, 
comprendre ce qu'elle fait, programmer ce qu'il 
faut pour qu'elle fasse la même chose, mais en 
DOS 3.3 normal. 


Il y a les autres qui mettent quinze fois plus de 
temps à comprendre, qui se trompent quinze 
fois de suite et font des trucs qui ont l'air 
dégueulasses à l'écran. Des bouts de machins 
qui traînent dans tous les coins. 


Nous, quand on signe, on essaye de faire ça 
discrètement, pour rien enlever à la façon dont 
les gens auraient voulu que ce soit présenté 
originellement. Moi, quand je vois une page 
qui arrive, et où on ne voit plus ce que c'est, 
parce qu'un abruti a mis son nom en plein 
milieu et en gros, et qu'en plus les couleurs 
bavent, ça me plaît pas, et je suis sûr que ce 
type-là ne sait pas programmer. C'est une 
insulte aux gens qui ont fait le programme au 


départ. 


P - En fait, vous voulez dire que vous avez un 
certain respect pour les auteurs de programmes. 


A - Cela paraît bizarre, mais c'est vrai. On s'est 
appelé Clean Crack Band parce qu'on essaye, à 
chaque fois, de faire du beau travail. Tous les 
programmes qu'on a déplombés et qui portent 
notre signautre quelque part, c'est bien fait, ça 
marche à la même vitesse ou plus rapidement 
que l'original, ça conserve l'esprit du logiciel. 
C'est bien fait, quoi. C'est discret, et bien. 


P - Vous êtes en quelque sorte des esthètes. 


A - On peut dire ça. On peut, on peut … Ça fait 
un peu prétentieux, mais (rires). Mais c'est 
vrai, je vois ça comme ça. C'est pour cela que 
ça me met hors de moi quand je vois des gens 
qui ne le font pas. 


La majorité des gens qui écrivent des 
protections pour les logiciels font des trucs 
bien; je ne parle pas de ceux où il faut cinq 
minutes pour déplomber, quoique ce n'est pas 
une raison pour les massacrer. Prenons par 
exemple Bill Bashan, qui a fait Dogfight et la 
protection de tous les IDSI (Point 5, Trick 
Shot), c'est un type que j'admire vraiment. 
Quand on regarde une page prise n'importe où 
dans un listing qu'il a écrit, on reconnaît tout 
de suite que c'est lui qui l'a fait. Il a une espèce 
de style. 


P - En général, c'est la même personne qui crée 
les logiciels et réalise la protection ? 


Autre pirateur - Non, mais celui qui fait la 
protection intercale son code dans celui de 
l'auteur. 


P - Mais, alors, comment reconnaît-on le code 
original du code de protection ? 


A - C'est ça qui le trahit. Pour déplomber un 
truc, souvent, je commence comme 
normalemeut, puis ensuite je regarde dans la 
mémoire le* zones où je pense qu'il pourrait y 
avoir quelque chose. Je regarde au hasard. Et 
souvent, je tombe sur un endroit où je me dis 
"Tiens, ça, ce n'est pas écrit comme le reste"; 
il y a alors de fortes chances pour que la 
protection, ce soit ce truc-là. 


Y'a des gens qui utilisent plus certains registres que 
d'autres. Ce sont des trucs comme ça. C'est subtil, et 
c'est bien. 


Autre pirateur - A ce niveau-là, quelqu'un comme 
Aldo - surtout lui, parce que c'est un des meilleurs 
dans le genre - reconnaît le style d'un auteur de 
logiciel comme on reconnaît celui d'un écrivain. 
Signe distinctif très caractéristique à mon avis, Aldo 
n'utilise pratiquement pas d'assembleur, il travaille 
directement avec les codes mnémoniques, en hexa 
directement. 


P - Savez-vous ainsi identifier plusieurs "protecteurs" 
américains ? 


A - J'en connais plusieurs. Il y a toujours dans un 
coin le nom de celui qui a fait la protection; on ne 
peut pas y échapper. C'est pas forcément leur nom en 
clair; il y en a qui mettent leurs nombres favoris, des 
trucs comme ça. On les retrouve. Quand je vois dans 
Dogfight, à un moment dans le programme, il y a 
deux/trois machins, et puis ensuite, je retrouve les 
mêmes codes dans une protection, et plus tard je 
retrouve que c'est le même type (à cause de cette 
signature) dans d'autres logiciels. Il suffit de faire 
attention aux bons trucs. 


Moi, j'ai arrêté de déplomber aussi parce qu'une de 
mes raisons, c'était de récupérer tous les softs qui 
sortaient, pour être au courant. Maintenant, j'arrive à 
tout avoir par les amis, mal déplombé, on n'y peut 
rien, mais je les ai quand même. C'est quand même 
triste de voir que c'est mal fait … C'est dommage. 


P - Quel genre de bêtises a-t-on dit sur vous ? 


Autre pirateur - D'après Paris-Match, Aldo aurait 
travaillé sur le fichier d'une banque. Or, il ne fait pas 
du tout de communication, il a horreur de cela. C'est 
Tony qui est "branché". 


A - J'aurais piraté le Crédit Agricole par Minitel. 
Faut quand même pas exagérer. J'ai fait d'autres 
choses. Ceci dit, les auteurs de logiciels, j'en 
connais peu qui ne piratent pas. Si un auteur veut 
faire un bon logiciel, il faut qu'il voie ce que font 
tous les concurrents. 


P - Une morale à tout cela ? 


A - C'est pas forcément une mauvaise chose que les 
logiciels se diffusent par piratage. Que les 
programmes circulent permet d'amener plus de gens à 
un certain niveau, de voir ce qu'est un bon 
programme, ça aide à mon avis la micro-informatique 
et l'informatique en général; et ça, je trouve que c'est 
une bonne chose. Les avis sont partagés là-dessus. 
Enfin comme les programmes circulent de toute façon 
déplombés, il vaut mieux qu'ils circulent déplombés 
de façon propre que sale. Mal déplombé, cela peut 
donner l'impression que le programme marche mal, 
cela fait du tort. C'est pour cela que les gens qui 
déplombent pas bien, ils font du mal doublement. Le 
bon déplombage fait progresser l'informatique. 


.… MacPublisher, Page Maker (non encore disponible) et, pourquoi pas, tout simplement le génial Mac Draw, encore trop méconnu … 
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Hard copy de la page HGR étendue 


Cet article s'adresse uniquement aux 
propriétaires d’un Apple //e, équipé 
d’une carte 80 colonnes étendue, ou 
d’un Apple //c (la carte Chat Mauve 
est intégrée en standard). Vous savez 
certainement que ces cartes addition- 
nelles améliorent non seulement l’af- 
fichage en mode TEXT de l'Apple, 
mais aussi ses capacités graphiques 
(jusqu’à 560 x 192 points), en per- 
mettant l’utilisation des pages haute 
résolution de 16 Ko, d’où une meil- 
leure qualité des graphismes obtenus. 
Il était jusqu’à présent possible de 
créer et de sauvegarder des graphis- 
mes 16 Ko à l’aide d’utilitaires très 
puissants tels que Purplesoft, ou à 
partir du Basic (voir suite de l’article), 
mais pas d'en obtenir une reproduc- 
tion sur papier. Le programme en 
langage machine proposé ici, associé 
au programme Basic COPIE comble 
cette lacune, la qualité de la repro- 
duction obtenue n'étant toutefois op- 
timale que lors de la recopie d’une 
image 560 x 192 en noir et blanc. 


Commutateurs mémoire 
et graphismes 16 Ko 


Les modes graphiques 16 Ko page 1 
des cartes 80 colonnes étendues utili- 
sent les 8 Ko de la page graphique 
haute résolution 1 et 8 Ko de la mé- 
moire auxiliaire situés aux mêmes 
adresses. Leur utilisation suppose 
donc lecture et écriture dans les 64 
Ko additionnels. 

L'écriture et la lecture de données 
dans la mémoire auxiliaire peut s’ef- 
fectuer de deux manières: soit en 
utilisant la routine AUXMOVE (voir 
Manuel de référence //e ou de la 
carte 80 colonnes), soit en jonglant 
avec les commutateurs mémoire 
80STORE, PAGEZ2 etc... 

C'est cette deuxième méthode 
qu'utilise le programme de hard 
copie. Afin de permettre son emploi 
à partir d'un programme Basic, 
seules les deux zones mémoire cor- 
respondant aux pages TEXTI et 
HGRI1 sont commutées. 


Ceux qui ont déjà essayé d'utiliser 
les 64 Ko de la mémoire auxiliaire 
sans passer par AUXMOVE se sont 
certainement rendu compte de la 
complexité du problème, et ont pu 
constater que la séquence CTRL- 
Pomme Ouverte-RESET est parfois 
incapable de remettre de l’ordre dans 
tous les pointeurs. En Basic, cette 
mémoire additionnelle n’est absolu- 
ment pas utilisable directement et ne 
peut l'être pleinement qu’en assem- 
bleur (l’Applesoft n’est malheureuse- 
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ment pas un Basic 128 Ko). Les 
commutations de pages mémoire ef- 
fectuées pour utiliser le mode HGR 
16 Ko sont les seules exploitables 
sans grand danger en Basic. Il suffit 
alors de protéger la page HGR1 par 
un LOMEM ou un HIMEM approprié 
et de veiller à ce qu'aucun pointeur 
ne soit perdu lors d’une opération 
d’Entrée / Sortie. 


Attention: certaines interfaces impri- 
mante, telles que la SSC, utilisent les 
trous” de la page TEXTI pour y 
loger des pointeurs. Il faut donc veil- 
ler, lors de l'envoi d’un caractère à 
l'imprimante par un PRINT ou un 
JSR COUT, à ce que la page TEXT1 
de la mémoire principale soit bien 
accessible (l'auteur de ces quelques 
lignes en a fait la triste expérience). 


Précisions sur 
les cartes 64 Ko 


Si vous avez essayé de comprendre 
l'effet des différents commutateurs 
mémoire vous avez pu constater que 
les explications fournies par les ma- 
nuels ne sont pas d’un abord facile; 
les quelques lignes qui suivent vous 
permettront certainement d'y voir 
plus clair : 


e Le commutateur mémoire 
80STORE a priorité sur RAMWRT 
et RAMRD, ce qui rend parfois 
AUXMOVE inutilisable. 

e Les commutateurs RAMWRT et 
RAMRD spécifient la Bank utilisée 
en lecture ou en écriture. 


Action des commutateurs 

1) Si ALTZP est OFF : 

Les commutations s'effectuent obli- 
gatoirement entre les pages 2 et $BF 
incluses, deux cas de figure sont 
alors possibles : 

— Si 80STORE est OFF, RAMWRT 
et RAMRD commutent entièrement 
de la page 2 à la page $BF. 

— Si 80STORE est ON, il est priori- 
taire par rapport à RAMWRT et 
RAMRD qui ne commutent plus, 
contrairement aux pages 2 à 4, 8 à 
$20 et $40 à $BF. Les pages TEXT1 
et HGRI1 commutent alors indépen- 
damment des autres si HIRES est 
ON. PAGE2 effectue leur commuta- 


tion. 

2) Si ALTZP est ON: 

Les commutations affectent la carte 
langage, la page 0 et la page 1. Elles 
sont effectuées avec RAMWRT et 
RAMRD, les autres commutateurs 
devant être positionnés exactement 
comme l’indiquent les manuels. 


LASER ER EENTN 
DERESEENTEE 


Marc Debuigne 


Attention : 


— Pour pouvoir encore afficher du 
texte à l'écran il est nécessaire que 
TEXTI1 ne soit pas commuté. 


— Après un appel d’une routine du 
moniteur, il faut faire très attention à 
la nouvelle position des commuta- 
teurs. 

— S'il est nécessaire de commuter la 
mémoire auxiliaire aussi bien en lec- 
ture qu’en éciture, il semble que 
seules les séquences RAMWRT ON 
et RAMRD ON, puis RAMRD OFF et 
RAMWRT OFF évitent les ”’planta- 
es”. 

à Les seules commutations possibles 
sont celles indiquées dans les ma- 
nuels, il faut alors s'assurer du bon 
positionnement de tous les commuta- 
teurs afin d'éviter un ”’plantage”. 

— Après certains plantages”, la 
seule manière de tout remettre en 
est d’éteindre et de rallumer 
PU.C. 


Dernières précisions: dans cer- 
tains cas la routine AUXMOVE ne 
peut être utilisée. Il existe deux 
commutateurs mémoire assez peu 
connus SLOTCXROM et 
SLOTC3ROM qui permettent d’accé- 
der aux ROM spécifiques du //e-//c, 
ce qui oblige à effectuer une écriture 
en #CO0A (49162) avant toute utili- 
satior de AUXMOVE. Etant donné 
n'utilise que 
RAMRD et RAMWRT, il faut que 
80STORE soit OFF pour qu’elle 
puisse accéder à toute la mémoire. 


Visualisation 
de la page 1 


Si vous avez un //e, la haute résolu- 
tion étendue ne peut être visualisée 
qu'avec des cartes mères révision B 
ou postérieures. Une seconde condi- 
tion doit être remplie : les deux Jum- 
pers des cartes d’origine Apple doi- 
vent être reliés (ce problème n'existe 
pas avec la carte Chat Mauve). Les 
commutations à effectuer sont : 


e AN3 OFF: $CO5E - 49246 (lec- 


ture) 
e GR ON: $C050 - 49232 (lecture) 
e HIRES ON: $C057 - 49239 (lec- 


ture) 

e FULL ON (ou MIXED) : $CO052 - 
49234 (lecture) 

e 80COL ON: $CO0D - 
(écriture) 


49165 


Pour utiliser à nouveau la haute ré- 
solution normale il suffit que le 
commutateur AN3 soit ON (lire en 
$CO5F - 49247). 





ren " 
SEL 


49 





Il existe aussi une page 2 en haute 
résolution 16 Ko. Pour la visualiser il 
faut également que 80STORE soit 
OFF. Cette deuxième page est diffici- 
lement utilisable, à moins d'écrire 
d’autres routines d'affichage en 80 
colonnes, car le firmware 80 colon- 
nes active toujours 80STORE. 


Création et sauvegarde 


Pour créer un graphisme haute réso- 
lution 16 Ko en Basic, sans risquer 
un plantage”, il faut activer les 
commutateurs suivants afin de ne 


.commuter que les pages TEXTI et 


conséquence et utiliser le HPLOT de 
l’'Applesoft (structure des pages haute 
résolution : voir manuels). Pour sau- 
vegarder et réutiliser l'image obte- 
nue, la méthode la plus simple est 
d'utiliser les commandes BSAVE et 
BLOAD du DOS 3.3. Une image est 
enregistrée en deux parties : la pre- 
mière correspondant au contenu de 
la page HGRI1 de la mémoire princi- 
pale, et la seconde à celui de la page 
HGRI1 de la mémoire auxiliaire. Pour 
comprendre parfaitement les opéra- 
tions à effectuer, il est bon d'analyser 
le programme CREATION CERCLE 
HAUT qui crée une série de cercles 


suivantes : Apple //c ou //e et impri- 
mante Image Writer. Les listings sont 
suffisamment commentés pour per- 
mettre une adaptation rapide à d’au- 
tres configurations. Il a les mêmes 
fonctionnalités qu’un programme de 
Hard Copie classique : impression de 
l’image telle qu'elle apparaît à l'écran 
ou en inverse, taille normale 560 x 
192 points ou double 1120 x 384 
points. 

La routine est implantée à l'adresse 
$4000 (16384), mais elle est parfai- 
tement relogeable (elle utilise la page 


3). 


HGRI1 : coicentiaies Une précision importante pour les 
e 80STORE ON: $C001 - 49153 _ possesseurs de //c : avant d'envoyer 
(écriture: modifie l’action de Pour qu’une image puisse être char- des informations à l'imprimante en 
PAGEZ2) gée par le programme COPIE asso- langage machine par un JSR COUT, 

e HIRES ON: $C057 - 49239 (lec-  cié à l'utilitaire de Hard Copie, il faut il est nécessaire d'effectuer un SEI. 
ture) que les fichiers associés se terminent . ie RS | 
» La taille de l'image imprimée doit 


e RAMWRT OFF: $C004 - 49156 
(écriture) 
e RAMRD OFF: $C002 - 49154 


par : ” 1” (mémoire principale), ” 2” 
(mémoire auxiliaire). Par exemple : 
CERCLE HAUT 1 et CERCLE 


être spécifiée via l’adresse $300. Seul 
l’état du 8ème bit est testé. Pour ob- 
tenir une taille normale: POKE 


(écriture) HSUT 2 768,N avec N strictement inférieur à 
* PAGEZ ON: $CO55 - 49237 Conseils: pour éviter les ‘’planta- 128; pour obtenir une taille double, 

nn dde ae ges”, utiliser HGR pour effacer la  N doit être supérieur à 128. 

$CO54 - 49236 (écriture : mémoire principale et CALL 62450 L'aspect de cette image est spécifié 


commute la mémoire principale) 


Lorsque 80STORE est OFF, PAGE2 
commute l'affichage entre les pages 
TEXT et HGR 1 ou 2. Lorsque 
80STORE est ON, il permet de 
commuter soit la mémoire principale, 
soit la mémoire auxiliaire (pages 
TEXTI1 et HGR1). Pour afficher un 
point en Basic il faut déterminer s’il 
se trouve en mémoire principale ou 
auxiliaire, effectuer la commutation 
adéquate, modifier son abscisse en 


pour effacer la mémoire auxiliaire. 
En outre, il faut protéger la HGRI1 
par un HIMEM ou un LOMEM. 


Programme de Hard 


Copie 


Le programme Basic COPIE sert 
seulement à charger une image en 
mémoire, à la visualiser, et à appeler 
la routine en assembleur après avoir 
positionné certains pointeurs. Cette 
routine tourne sur les configurations 


via l'adresse $301 par un POKE 
769,N. Si N est strictement inférieur 
à 127 l’image est telle qu’elle appa- 
raît à l'écran et si N est supérieur à 
128, l’image est en ’inverse”. 


Pour appeler la routine, il suffit, 
après avoir positionné les deux pré- 
cédents pointeurs, de charger une 
image en mémoire, de mettre en 
marche l'imprimante et d'effectuer 
un CALL 16432 (ou CALL adresse 
de début d'assemblage + 48). = 





Programme COPIE 


180 UVTAB 13: 


HTAB 28: 


PRINT "3) IMPRIMER 


UNE IMAGE THGR" 
190 UTAB 14: HTAB 28: PRINT "4) ARRET DU 


10 REM IMPRESSION SUR DMP D’UNE IMAGE T PROGRAMME 
El HGR 200 VTAB 23: INPUT "VOTRE REPONSE € 1,2, 

30 PRINT D8;"PR#3": REM COMMUTATION 80C | 319 REM VERIFICATION DE LA VALIDITE DE 
OLONNES LA REPONSE 

40 PRINT ù 220 IF LEN (4$) < } 1 THEN 140 

50 HIMEM: 2100: REM PROTEGE LA ROUTINE 230 IF ASC (AS) > 52 OR ASC (AS) < 49 
ASSEMBLEUR GOTO 140 

60 D$ = CHR#$ (4) 240 IF A$ = "4" THEN HOME : END 

70 PRINT D$;"BLOAD HARD" 250 À = VAL (AS): ON À GOSUB 270,650,680 

80 HOME 260 GOTO 140 

70 INVERSE 270 HOME : UTAB 22: PRINT "POUR EFFECTUE 


100 UTAB 8: HTAB 35: PRINT "IMPRESSION" R UN CATALOG REPONDRE ? * 


110 UTAB 11: HTAB 34: PRINT "D’UNE IMAGE | 289 UTAB 23: PRINT "POUR RETOURNER À L’E 
; CRAN PRECEDENT CR " 
120 VUTAB 14: HTAB 23: PRINT "HAUTE RESOL | 290 UTAB 12: HTAB 10: INPUT "NOM GENERIQ 


UTION ETENDUE" ; 
130 GET At: REM 


UE DE L'IMAGE À CHARGER ";A$ 


ATTENTE D'UN CR POU 300 IF LEN (AS) = 0 THEN RETURN 


R CONTINUER 310 IF € ASC (AS) < 65 OR ASC (AS) > 70 
140 NORMAL : HOME ) AND A$ < > "?" THEN RETURN 
150 UTAB 7: HTAB 28: PRINT "1 CHARGER U | 329 IF A8 < > "?" THEN 410 
NE IMAGE THGR" 320 HOME 
140 CALL 1002: REM FOUR BIEN CONNECTER 240 REM CONNECTE LE DOS QUI PEUT ETRE D 
LE DOS ECONNECTE PAR UN PRH3 
170 UTAB 10: HTAB 28: PRINT "2) VISUALIS | 250 REM SOUS DOS 2.23 4 PAS DE PROBLEME 


ER UNE IMAGE THGR" AVEC PRODOS ) 


A EUROS EEEREEMEE 
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360 CALL 1002 

370 PRINT D$;"CATALOG" 

380 PRINT : INPUT "PRESSER LA TOUCHE RET 
URN POUR CONTINUER ";4$ 

390 GOTO 270 

400 REM AFFICHAGE DE LA PAGE THGR 

410 GOSUB 870 

420 REM CHARGE LA PAGE HGR DE LA MEMOIR 
E PRINCIPALE 

430 POKE 49153,0: REM SOSTORE ON 

440 POKE 49236,0: REM PAGE2 OFF 

450 POKE 47156,0: REM RAMWRT OFF 

460 POKE 49154,0: REM RAMRD OFF 

470 REM POSITIONNE LES COMMUTATEURS ET 
EFFACE LA THGR 

480 REM UTILISER HGR POUR LA MEMOIRE 

490 REM PRICIPALE ET CALL 642450 POUR LA 
MEMOIRE AUXILIAIRE 

500 HOME : HGR : POKE 49234,0: POKE 4923 
7,0: CALL 62450 

510 POKE 49236,0: REM COMMUTE LA MEMOIR 
E PRINCIPALE 

520 ONERR GOTO 600 

530 PRINT D$;"BLOAD ";A$;" 1" 

540 POKE 49237,0: REM COMMUTE LA MEMOIR 
E AUXILIAIRE 

550 PRINT D$;"BLOAD ";A4$;" 2" 

560 POKE 497236,0 

570 POKE 216,0 

580 HOME : TEXT 

590 RETURN 

600 REM ERREUR DISQUE 

610 TEXT : HOME : UTAB 11: HTAB 20: INVE 
RSE 

620 PRINT "ACCES À CE FICHIER IMPOSSIBLE 
“: NORMAL 

630 UTAB 23: PRINT "APPUYEZ SUR UNE TOUC 
HE POUR CONTINUER ": GET À$ 

640 POKE 216,0: GOTO 140 

650 REM VISUALISATION D’'UNE IMAGE 

660 GOSUB 870 

670 INPUT A$: HOME : TEXT : RETURN 

680 REM IMPRESSION D’'UNE IMAGE 

670 HOME 

700 UTAB 7: HTAB 28: PRINT "1) TAILLE Sé 
0*192, NORMALE" 

710 UTAB 10: HTAB 28: PRINT "2) TAILLE 5 
60#192, INVERSE" 

720 UTAB 13: HTAB 28: PRINT "3) TAILLE 1! 
120*334, NORMALE" 

730 UTAB 16: HTAB 28: PRINT "4) TAILLE 1 
120*384, INVERSE" 

740 UTAB 19: HTAB 28: PRINT "S) RETOUR À 
U MENU GENERAL" 

750 VTAB 23: INPUT "VOTRE REPONSE (1..5) 
" AS 

760 IF LEN (A$) < > 1 THEN 690 

770 IF ASC (AS) < 49 OR ASC (AS) > 53 
THEN 690 

780 IF A$ = "5" THEN RETURN 

790 Ai = 1: IF A$ = "3" OR ÀA$ = "4" THEN 
A1 = 2 

800 A2 = 1: IF A$ = "2" OR A$ = "4" THEN 
A2 = 2 

810 REM EN 748 ET 769 SEULE LA VALEUR D 


U 7EME BIT EST TESTEE 


Programme HARD.S Source Big Mac 
| RÉREREEREEÉEEHERERELREELÉEREÉEXELSEXEEX 

2 * x 
3 +* x 
4 * TABLE DES LIGNES HGR * 


pu: 
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820 
830 


840 


850 
860 
870 
880 
870 
700 
710 
720 
730 
740 


À 
F4 
À 
A 





Programme CREATION CERCLE HAUT 


REM < VALEUR } OÙ < À 128 ) 

POKE 768,0: IF Ai = 2 THEN POKE 768 
,200 

POKE 769,00: IF A2 = 2 THEN POKE 7é 
9,200 

CALL 16432 

RETURN 

REM AFFICHAGE DE LA PAGE THGR 


POKE 49160,0: REM ALTZP OFF 

=  PEEK (497246): REM ANG OFF 

= PEEK (49232): REM GR ON 

=  PEEK (49239): REM HIRES ON 

= PEEK (49234): REM HIRES ENTIERE 
POKE 497165,0: REM 80 COL ON 

RETURN 





10 REM TRACE DE 3 CERCLE EN HAUTE RESOL 
UTION 
20 D$ = CHR$ (4): PRINT D$;"PR#3": PRINT 
30 REM AFFICHAGE DE LA TRES HAUTE RESOL 
UT I ON 
40 POKE 49160,0:Â = PEEK (49246): = P 
EEK (49232) :A = PEEK (49239) 
50 À = PEEK (49145) 
60 REM POSITIONNEMENT DES COMMUTATEURS 
70 POKE 49234,0: POKE 49153,0: POKE 4915 
6,0: POKE 49154,0: POKE 49236,0 
80 REM EFFÂACE LA THGR 
90 HGR : POKE 47237,0: CALL 62450: POKE 
49236,0: POKE 47234,0 
100 HCOLOR= 3 
110 FOR I = 1 TO 70 STEP 5 
120 FOR J = 0 TO 6.29 STEP 0.5 / I 
130 X = 270 + 2 *# I * COS (J):B = 96 + I 
*% SIN (J) 
140 GOSUE 250 
150 NEXT J 
160 ONEXT I 
170 REM SAUVEGUARDE DE L'’IMAGE CREE 
180 PRINT D$:"BSAVE CERCLE HAUT 1,4$2000 
;L$2000" 
1790 POKE 49237,0: PRINT D$;"BSAVE CERCLE 
HAUT 2,4$2000 ,L$2000" 
200 POKE 47236,0 
210 TEXT 
220 END 
230 REM 
240 REM ANALYSE DES COORDONNEES THGR : 
PAGE1 OÙ 2 ET 560 ->280 
250 XX = INT €X / 7):PG = XX - 2 # INT 
(XX / 2) 
260 XX = INT €XX / 23 x 7 + X —- 7 x XX 
270 POKE 49237,0: IF PG THEN POKE 49236 
0 
L] 
286 IF XX > 279 THEN RETURN 
290 REM AFFICHAGE DU POINT AVEC HPLOT D 
ANS LA BONNE PAGE MEMOIRE 
300 HPLOT XX,B 
310 POKE 49236,0 
320 RETURN 
5 * * 
6 *# + 
TV ''ÉERÉÉÉRERÉEERÉÉEEEEÉÉEÉELÉESEREREREEEE 
8 ORG +$4000 
? : ORGANISATION MEMOIRE 


51 





10 ;300 : Taille plantages avec la SSC 
11 ;301 : Inverse où Normal 81 LDA  H$0i ; MISE EN 
12 ;302 a 309 : Buffer Caracteres ROUTE IMPR 
13 ;330À : Ordre Ligne 82 JSR  OUTPORT 
14 ;30B : Ordre Octet 83 LDA ##$89 
15 ;18 : octet a aller chercher 84 JSR COUT 
16 ;3310 Partie basse ou haute ligne 85 LDA #H"2" 
17 3311 : Pointeur de repetition horiz 26 J5R COUT 
ontale 87 LDA #$80 
18 ORG +4000 88 JSR COUT 
19 DEBTAB HEX 00,20 89 LDA H##$7B ; SELECTIO 
20 HEX 80,20 N DE L’INTERLIGNE 
21 HEX 00,21 90 JSR COUT 
22 HEX 80,21 91 LDA  H#D4 ; CARACTER 
23 HEX 00,22 ET 
24 HEX 80,22 92 JSR COUT 
25 HEX 00,23 93 LDA  ##$B1 ; NOMBRE 1 
26 HEX 80,23 6 
27 HEX 28,20 94 JSR COUT 
28 HEX A8,20 95 LDA  H#$Bé 
29 HEX 28,21 ?é JSR COUT 
30 HEX  A8,21 97 LDA  AN3 ; AFFICHAG 
31 HEX 28,2 E DE LA PAGE THGR 
32 HEX A48,22 98 LDA GR 
33 HEX 28,23 99 LDA HIRES 
34 HEX A8,23 100 LDA FULL 
35 HEX 50,20 101 STA  COLE0 
36 HEX  D0,20 102 STA  ONSOST ; PREPARATI 
37 HEX 50,21 ON COMMUTATION 
38 HEX  DG,21 103 STA  OFFUT 
39 HEX 50,22 104 STA  OFFRD 
40 HEX  DO,22 105 LDA  #$00 ;ÿ INITIALI 
4i HEX 50,23 SATION N LIGNE 
42 HEX D0,23 106 STA ORLIG 
43 FINTAB 3Fin table HGR 107 STA POINTE 
44 * 108 LDA H$FF 
45 RÉÉÉEXERHEE EME É EEE REX EE LR EEE EE EE 109 STA HBLI G 
4aé * : 110 AUTRE BIT TAILLE 
47 * * 111 BPL Ai 
43 * PROGRAMME PRINCIPAL * 112 LDA HBLIG 
49 * : 113 EOR H$FF 
50 * : 114 STA HBLIG 
SI HKRHELELRELRSELSERÉLELERÉELRERÉEÉEERRÉELEX 115 BIT HBLIG 
52 ; Table des commutateurs memoire 1146 BPL Ai 
53 AN3 EQU $COSE 117 DEC ORLIG 
54 GR EQU +$C050 113 A! LD #$3D 
55 HIRES EQU +$C057 119 JSR COUT 
5Sé FULL EQU $co052 120 LDA #$7B 
57 COLEeQ EQU +C000D 121 JSR COUT 
58 ON30ST  EQU +$Co0! 122 LDA  ##F0 
59 OFFR0ST EQU #C000 122 JSR COUT 
60 ONPG2 EQU $C055 124 LDA #3FF 
ét OFFPG2 EQU +#C054 125 STA  OROCT 
S£ FFT EQU æ#Coûd 124 LD  ##00 
43 OFFRD EQU +cao2 127 STA  INDIC ; INDICATE 
64 ONTEXT  EQU +$C051 UR DE PAGE 
65 ; ADDRESSES SYSTEME 128 LDA 4H#9B ; SELECT 
é$ COUT EQU  $FDED ION UNE LIGNE HGR 
67 ; POINTEURS PROGRAMME 129 SR COUT 
68 ORLIG EQU +$30Â 130 LD  H#$C7 ; CARACTER 
69 OROCT EQU $30B E G 
70 ADR EQU #18 121 JSR COUT 
71 INDIC EQU #30C 132 LDA  #$B1 
72 TYPE EQU +#301 133 JSR COUT 
73 TAILLE EQU +300 134 LDA  H#$B1 
74 HBLIG EQU +310 125 JSR COUT 
75 POINTE  EQU +311 134 LDA  H#5B2 
76 OUTPORT EQU #FE95 ; SELECTIO 137 JSR COUT 
N DES PERIPHERIQUES 138 LDA  #$B0 
77 # DEBUT DU CO 139 JSR COUT 
DE 140 JMP  COMPL 
78 CLD 141 COMPL LOS H$FF : CHANGEMEN 
79 SET T DE PAGE 
80 STA OFFPG2 jEvite les 142 INC  OROCT ; INCREMEN 
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TATION ORDRE OCTET 187 BNE L2 








i43 EOR  INDIC 188 STA OFFPG2 
1443 STA  INDIC 1897 BIT TYPE 
145 STA  ONPG2 190 BPL NOINV 
146 BNE  SELEC 191 EOR #H$FF 
147 STA  OFFPG2 192 NOINV JSR COUT 
148 DEC  ORQCT 3: PAS INCRE 1973 | BIT TAILLE 
MENTATION SI GOTO PG2 174 BPL NORME 
149 SELEC LDA ORLIG : CALCUL D 195 JSR COUT 
E L'ADRESSE À CHARGER 176 NORME DEY 
150 ASL 197 BNE Li 
151 TAX 173 LDA #H$527 
152 LDA DEBTAB,X 199 CMP  OROCT 
153 STA ADR 200 BEQ Ni 
154 LDA DEBTAEB+1 ,X 201 JMP COMPL 
155 BIT TAILLE 202 Ni LDA #H#$00 
156 BPL STORE 203 CMP  INDIC 
157 BIT HBLIG 204 BEG NZ 
158 BPL STORE 205 JMP  COMPL 
157 CLC 206 N2 INC  ORLIG ; INCREMEN 
160 ADC ##10 TATION ORDRE LIGNE 
161 STORE STA  ADR+I 207 LDA ##$03 
162 LDX  #$0 208 STA $FF 
163 LDY  OROCT 209 LDA #$30 
164 LDA  #$00 210 STA $FE 
165 STA POINTE 211 LLL LDA ##00 
166 CHRG LDA (ADR) ,Y 212 JSR COUT 
167 STA #$5302,X 213 DEC $FE 
148 INX 214 BNE  LLL 
169 CPX ##$e 215 DEC #%$FF 
170 BEQ FINCH 216 BNE  LLL 
171 BIT TAILLE 217 LDA #H$18 
172 BPL NON 218 CMP  OFRLIG 
173 LDA POINTE 219 BEQ FIN 
174 EOR H$FF 220 JMP AUTRE 
175 STA POINTE 221 FIN STA  OFFPG2 ; Position 
176 BNE  CHRG normale des switchs 
177 NON LDA H##04 222 STA  ONTEXT 
178 CLC 223 STA OFFS80ST 
179 ADC ADR+I 224 LDA #$380D 
180 STA  ADR+1I 225 JSR COUT 
181 ENE  CHRG 226 LDA #503 ; PRH3 
182 FINCH LDY H$07 ; MISE EN 227 JSR  OUTPORT 
FORME DES COLONNES 228 LDA  H$8D 
183 LI LDX #508 229 JSR COUT ; POUR BIE 
184 L2 LSR #301,X N EFFECTUER PRH3 
185 ROL 230 RTS 
186 DEX 
HARD 4053- À? B$ 20 ED FD AD SE CO 40C3- FD A9 80 20 ED FD 4C Di 
*4000.41A0 4060- AD 50 CO AD 57 CO AD 52 4000- 40 A7 FF EE 0B 03 40 0C 
4068- CO 8D 0D CO 80 01 CO 80 4008- 03 3D 0C 03 80 55 CO D0 
4000- 00 20 80 20 00 21 80 21 4070- 04 CO 80 02 CO A9 00 80 40E0- 046 3D 54 CO CE 08 03 AD 
4008- 00 22 80 22 00 23 80 23 4073- 0À 03 80 11 03 A9 FF 80 40E3- 0 03 OA A4 BD 00 40 85 
4010- 23 20 A8 20 28 21 AS 21 4080- 10 03 2C 00 03 10 10 AD 40F0- 13 BD 01 40 2C 00 03 10 
4018- 23 22 AS 22 28 23 A8 23 4088- 10 03 47 FF 30 10 03 2C 40F3- 08 2C 10 03 10 03 18 469 
4020- 50 20 D9 20 50 21 DO 21 4090- 10 02 10 03 CE 0A 03 A9 4100- 10 35 19 A2 00 AC 0B 03 
4028- 50 22 DO 22 50 23 DO 23 4098- 30 20 ED FD A9 98 20 ED 4103- A9 00 30 11 03 Bl 13 90 
4030- DS 78 8D 54 CO A9 01 20 40A0- FD A9 F0 20 ED FD A9 FF 4110- 02 03 ES E0 08 FO 18 2C 
4038- 95 FE A9 89 20 ED FD A? 4048- 8D 08 03 A7 00 8D 0C 03 4118- 00 03 10 OA AD 11 03 49 
4040- DA 20 ED FD A7 8D 20 ED 4080- A9 98 20 ED FD A? C7 20 4120- FF SD 11 03 DO E7 A? 04 
4048- FD A9 98 20 ED FD AY D4 4083- ED FD A9 B1 20 ED FD À? 4123- 18 65 19 85 19 D0 DE A0 
4050- 20 ED FD À? 81 20 ED FD 40C0- Bi 20 ED FD A? B2 20 ED 4130- 07 A2 08 SE 01 03 24 CA 


Editeur plein écran : EPE 


Le Pachs Apple I+, //e, //c 
O0 Listez vos programmes Basic en avant et en arrière. 
O0 Modifiez, insérez, effacez des caractères en plein 
écran sans relire les lignes. 
O0 Recherchez toute chaine de caractères. 
O Choisissez vous-même les codes de contrôle d'ÉPE. 





o Modifiez ÊPE : le fichier source est sur ls disquette. 
150,00 F TIC franco (bon de commande page 78). 
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Les pointeurs, 


Olivier Herz 


Pour illustrer et compléter l’article du 
Pom's 17 sur les pointeurs, nous 
vous offrons un petit programme de 
démonstration de Régis Lardennois. 
Celui-ci vous permet de bien 
comprendre la gestion des variables 
dynamiques et de visualiser les 
adresses mémoires utilisées. 

Le lecteur pourra aussi se reporter 
avec profit à deux autres articles du 
même auteur, qui sont une applica- 
tion un peu plus sophistiquée des 
notions décrites ci-dessous : 
"Tableaux de taille déclarée en Pas- 
cal” (Pom's 6) et : 

Effacement de directory en Pascal” 
(Pom's 7). 

Citons également pour mémoire les 
"PEEKs et POKEs en Pascal” de 
Jacques PINO (Pom's 12); c’est une 
sorte de ”’magouille” dont la compré- 
hension n’est pas immédiate. 


Utilisation 


Il suffit d'exécuter le programme et 
de répondre par un chiffre de 1 à 7 
au menu. 


1-— destruction tableaux 1 et 2 
2— création tableau 1 

3— initialisation tableau 1 

4-— création tableau 2 

5— initialisation tableau 2 

6— visualisation tableau 1 

7-— visualisation tableau 2 


Explications 


Laurence Tichkowsky nous a pré- 
senté les pointeurs comme étant des 
variables dynamiques: la place pour 
les stocker n'est pas réservée de 
façon immuable par la compilation, 
mais au contraire cette place est dé- 
gagée à l'exécution au moment où 
l'on crée un nouvel élément du poin- 
teur (instruction NEW). 

Nous allons maintenant voir que le 
Pascal UCSD permet à un pro- 
gramme de se débarasser en cours 
d'exécution des variables dynami- 
ques dont il n’a plus besoin. Il utilise 
pour cela, outre NEW, deux procé- 
dures du système UCSD : MARK et 
RELEASE. 


Le Pascal utilise une sorte de pile 
pour gérer ses pointeurs; la procé- 
dure NEW(P) crée P et le place au 
sommet de la pile. 

La PROCEDURE MARK(VAR PI- 
LEPTR: INTEGER) va permettre à 
l'Apple de ‘’mémoriser” l’adresse du 
sommet de la pile, en faisant un 
MARK(PTR) où PTR est de 
typé INTEGER. 


Inversement, la PROCEDURE RE- 
LEASE(VAR PILEPTR: INTEGER) 


era eater se) 


suite... 


LE PROGRAMME CI APRES EST UNE APPLICATION TRES } 
SIMPLE DES POINTEURS AVEC VISUALISATION DES } 
DES ADRESSES MEMOIRE UTILISEES 7} 

IL PERMET DE BIEN COMPRENDRE LE FONCTIONNEMENT } 
DES PROCEDURES PASCAL UCSD DE GESTION DES ) 
VARIABLES DYNAMIQUES NEW MARK et RELEASE } 


CXR—-%) 


PROGRAM TESTPOINTEUR; 


TYPE ARTICLE = RECORD NUMERO:INTEGER: 


NOM : STRING ; 
END; 

ARRAYL8..9] OF ARTICLE; 
*TABLEAU; 


* INTEGER; 


TABLEAU = 
POINTEUR = 
PTI = 


VAR ART: ARTICLE; 


HEAP1,HEAP2 :PTI; 
POINTI,POINT2 :POINTEUR; 
CL : CHAR; 

1 : INTEGER; 


FUNCTION PTARTICLE ÇCPT:POINTEUR) : INTEGER; 
VAR X:RECORD CASE BOOLEAN OF 


TRUE : CPTR:POINTEUR); 
FALSE : CINT:INTEGER); 
END ; 
BEGIN 
X.PTR:=PT; 
PTARTICLE:=X.INT; 
END ; 


FUNCTION PTINTEGER (PT:PTI):INTEGER; 


VAR X:RECORD CASE BOOLEAN OF 


TRUE :CPTR:PTI); 
FALSE :ÇCINT:INTEGER); 
END ; 
BEGIN 
X.PTR:=PT; 
PTINTEGER:=X.INT; 
END ; 


PROCEDURE MENU; 


BEGIN 
PAGE (OUT PUT) ;WRITECCHR(28)) ; 


€ COMPATIBILITE APPLE II ET /// ) 


WRITELNC' PROGRAMME DE DEMONSTRATION DE L’’USAGE DES POINTEURS’); 


WRITELN; 
WRITELN(’MEMOIRE DISPO” ,MEMALVAIL) ; 
WRITELN; 
WRITE (’ HEAPI = ’ ,PTINTEGER(CHEAP1), 
*  HEAP2 = ” ,PTINTEGERCHEAP2)); 
WRITELNK POINTI = ’ ,PTARTICLE(POINTI), 
. POINT2 = ”’ ,PTARTICLE(POINT2)); 
WRITELN; 


WRITELN(”’1 DESTRUCTION TABLEAUX 1 ET 2°’); 
WRITELN(’2 CREATION TABLEAU 1 
WRITELN(’3 INITIAL TABLEAU 1 
WRITELN(’4 CREATION TABLEAU 2 
WRITELN(’S INITIAL TABLEAU 2 
WRITELNC’é6 VISUALIS TABLEAU 1 
WRITELN(’7 VISUALIS TABLEAU 2 
WRITELNC’ESC QUITTER’); 


READ(CL) ; 
END ; 
BEGIN 
MARKÇCHEAP1) ; HEAP2:=HEAP1 ; POINT 1 :=NIL;POINT2:=NIL ; 
REPEAT MENU; 
CASE CL OF 
f17:BEGIN RELEÂASECHEAP1) ; HEAP2:=HEAP1 ; 


END ; 
*27:BEGIN NEWKPOINTI) ;MARKCHESP2) ; END; 
‘3’:FOR I1:=8 TO 9 DO 
BEGIN POINTI"CIJ.NUMERO:=I; 
POINTI*CI].NOM :=’ TAB’; 
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va restituer l'adresse du met END ; 
: sse du sommet de 247 :NEWCPOINT 2) ; 
là pile, en faisant un RE- 


. :S’:FOR 1:=8 TO 9 DO 
LEASE(PTR), où PTR est de type BEGIN POINT2-CI1].NUMERO:=100#1; 
INTEGER et contenait cette adresse. POINT2*CIJ.NOM  :=’TAB2’; 
Dès lors, l'affaire est simple : il suffit END; 
de faire un MARK avant de faire un 28’ :BEGIN WRITELN; 
ou plusieurs NEW, pour noter la po- FOR 1:=0 TO 9 DO 
sition de la pile avant la création de WRITELN(POINT1*C1J.NUMERO, POINTI*CI].NOM:18) ; 
nouveaux pointeurs. Puis, lorsque READ (CL) ; 
lon désire jeter” ces pointeurs, il END ; 
suffit de faire un RELEASE remettant Te 
le sommet de la pile là où il était WRITELNCPOINT2*C1].NUMERO,POINT2*C11.N0M:18) ; 
avant. READ( CL) ; 
END ; 
Notons que le Pascal standard per- END; ’ 
met de se débarrasser individuelle- UNTIL CL=CHR(27); 


ment d'un pointeur par la procédure END. 
DISPOSE, mais qu’il ne connait ni 
MARK ni RELEASE. 


Le programme est une application 
très simple de ce qui précède; visuali- 
sons la pile après différentes opéra- 
Dors par exemple 1 — 2-4 —- 4 — 





1) sommet = heapi = heap2 ------- 


2) sommet = heap2  ------- 


eapl BASICIUM, le Bosic enrichi. 
& Foret nets Gérard Michal Appla !+, //a 
heap2  ------- 
table 1 Cet Utilitaire vous permet de : 
NOpL 
4) sommet  ------- O Gérer des masques ou écrans 40 où 60 colonnes. Ces écrans. 
table 2 définis lors de la programmation, s'affichent par la simple 
HE commande JA. 
(périmée) O Saisir toutes les varlables d'un écran en une seule commande || 
heap2 Re en contrôlant le type et la longueur. 
heapi TS D Recopler l'écran 40 où 80 colonnes sur l'imprimante par H. 
O Faire Un nettoyage mémoiretrès rapide por F. 
2) sommet = heap2 EE O Gérer des messages. lo réponse étant contrôlée. 
bémrsto #t O Mois aussi, ne salsir que l'une des variables offectées à un 
table 2 écran, les afficher. les effacer, etc. 
table 2 
6 i es Tous les fichiers source sont sur la disquette. 
= (ÆExemple de démonstration dans le Fom's 13] 
table 1 
Li La arte Disquette et documentation : 150,00 F TTC franco (bon de commande page 78). 





Remarquons que les fonctions 
PTARTICLE et PTINTEGER ne sont 
que des PEEKSs déguisés. = 








Baltayan Alain 83160 La Valette 
Tirage au sort à Maurice 13004 Marseille 
Dans notre précédent numéro, nous annoncions 15 abon- Crueize Jean-Claude 77230 Moussy le Neuf 
nements avec disquettes à gagner pour les lecteurs qui Dettobi Christian 75013 Paris 
nous renverraient le questionnaire. Deveze Jean-Luc 11160 Caunes 
Vous avez été nombreux à répondre et nous vous en re- Esposito Gérard 51100 Reims 
mercions. Gaulon Pierre 0 Le Fes 
Le tirage au sort a eu lieu le 30 avril 1985. La liste des Gintz Robert trasbourg 
heureux gagnants est fournie ci-contre : Hentz André 57330 Hettange Grande 
Hugues Gilbert 33470 Gujan Mestras 
Si toutefois, un des gagnants veut offrir son abonnement à Lacroix Marc Suisse 
une personne de son choix, il doit nous faire parvenir les Menard Pierre 76800 Saint Etienne du Rouvray 
coordonnées complètes de celle-ci. Simon Philippe 68300 Saint Louis 
Les résultats détaillés de ce sondage paraîtront dans le Picaud Jean 75011 Paris 
prochain numéro. Pierrot Claude 28410 Marolles BU 


” 
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Apple et le logo Apple sont des marques déposées d'Apple Computer, Inc 


Puisque nous ne 
viez besoin, nous 





ce RES 
= He [Hetco 
LULEECCHIIE CT ÉQE 
EE. | | EERRE | ! ‘EN — 
[LEE TE 2 DE Du 
RER LI! À D llrII j Une des plus grandes bibliothèques de logiciel 
| | | | | | | | À programmes compatibles avec l'Apple Ile : jeu 
RER | l | | gestion de base de données, analyse financièr 
[TITI TI [ITU _S 
LEDEDD EDIT DETTE TETE 
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Un clavier 63 touches type AZERTY comprenant une accentuation complète et des 
Caractères majuscules/ minuscules intégrés. 





Connecteur Connecteur Connecteur Connecteur Connecteur pour le lecteur Connecteur pour es. , 
pour la souris. pour le modem. pour TV. confeuer pour L moniteur vidéo. dl disquette externe. imprimante ou traceur. Voici comment: 


Hu [L qyn dnneue à 4008 TAILL “dé 


très facilement 
Si nous vousé 
Seedrin S.A.RL., Avenue de l'Océanie - Z.A. de Courtabœuf B.P 131, 91944 Les Ulis Cedex 








en un seul apparë! 
était indispensable 





autant de mémoin 











CLM & BBDO. 


avions pas de quoi 
vous avons tout donné. 
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[ pple Works Omnis II es Oursons n 

s au monde; 16.000 Voici 8 exemples de ce que vous pouvez afficher sur votre 

. traitement de texte, écran. 8 parmi 16.000 ! à vous de découvrir les autres. 

* planification. Lorsque vous aurez essayé l'Apple Ilc vous ne regretterez pas 


notre générosité. 


ee" 





se présente l'Apple Ilc relié à 

délinition et à la souris. Ses connexions directes vous permettent d'utiliser 
toutes les fonctions dont vous avez besoin : imprimante, modem... 

avons donné autant de place, autant de beauté, 

(128 Ko), autant de possibilités 
Cest que cela 


: vel 


Le 
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@- Programmer 
un ordinateur est 
devenu pour vous 
un loisir, un plaisir... 
| une passion, sachez que LIST a été créé 
pour vous. LIST vous aide à tirer davantage 
de votre matériel, à vous perfectionner 
dans la conception des programmes 
qui “tourneront” sur votre machine. 
LIST vous initie aux langages informatiques 
et sélectionne les meilleurs livres pour 
progresser. LIST vous informe de l'actua- 
lité et vous fournit trucs, astuces et idées 
pour mieux programmer... 
Pour être sûr de ne rater aucun numéro 
et pour recevoir LIST chez vous, 
abonnez-vous! 


VOTRE CADEAU! 


D'un format pratique (11,5 x 
25 cm), le TRANS’BASIC est 
une table de conversion des 
instructions BASIC des 
21 micro-ordinateurs les 
plus courants. Ce livret de 
24 pages vous permettra 
d'adapter sur votre ordi- 
nateur la plupart des 
programmes conçus 
\ pour les autres 
machines. 









D’ECONOMIE 
CTTCTETEECEEP ET TT 
CHHÉEEELEEEEEEEEREEEEEEEEEEEEEEEEEEEEEER 2 mas 
p18 
BULLETIN D'ABONNEMENT 


(à retourner à LIST - Service Abonnements - 5, place du Colonel Fabien - 75491 Paris Cedex 10) | 


PTÉROM t 4 
| 





Nom 





Adresse 
Ville Code PORTE Page UT _ HeRtesr À 


Veuillez m'abonner pour 10 numéros au prix avantageux de 160 F* au lieu de 200 F - prix total au numéro - et m'adresser en cadeau 


. Je joins mon règlement indispensable libellé à l'ordre de LIST. 
avion: Afrique Francophone: 245 FF; Amérique, autre Afrique, Océanie : 305 FF; Asie: 355 FF. 


énérale 2100405 835-39. Suisse: 19, route du Grand-Mont, CH 1052, Le Mont-sur-Lausanne, 
: LMPI, 9345, rue de Meaux, St Léonard (Québec), H1R 3H3, Canada. 





* Belgique : 1330 FB; Suisse: 50 FS; Canada: 30 $C: autres pays: 210 FF. Par 
: Soumillion, 28, av. Massenet, 1190 Bruxelles. Versement Société G 


versement Caisse d'Epargne et de Crédit, 10-2418 Le Mont CH 1052, compte courant n° 650156-7. Canada 


Autres pays: 5, place du Colonel Fabien, 75491 Paris Cedex 10. 





Les programmes décrits dans cet arti- 
cle ne fonctionnent qu'avec un Apple 
/le muni d’une carte 80 colonnes. 
Ayant réalisé quelques programmes 
qui n'utilisent l'Apple qu'avec des lo- 
giciels standards, j'ai été amené à re- 
chercher une transparence maximale 
du logiciel et en particulier du DOS. 
Ainsi les utilisateurs ne sont pas dé- 
sorientés et retrouvent le style de 
présentation auquel ils sont habitués 
(80 colonnes, utilisation des touches 
Pomme”, menus...) et n’ont quasi- 
ment rien à apprendre avant d’em- 
ployer mes programmes. 


Les programmes Basic MENU, CAT 
PLEIN ECRAN et EDITCAT permet- 
tent à l'utilisateur : 

— De sélectionner un fichier dans le 
catalogue de sa disquette, sans avoir 
à taper son nom, pour traitement ul- 
térieur par un programme (lecture, 
mise à jour, transformation.….). 

— D'afficher à l'écran les noms des 
fichiers du catalogue et de les modi- 
fier directement en plein écran, sans 


avoir à connaître les instructions du 
DOS. 


SALUT est un programme d'initiali- 
sation, MENU est le programme qui 
vous quidera lors de l’utilisation (ils 
pourront vous donner quelques 
idées) et DEMO est un petit pro- 
gramme de démonstration des possi- 
bilités offertes par les programmes 
MENU et CAT PLEIN ECRAN. Il n’a 
pas la prétention d’être un modèle (il 
utilise un INPUT élargi qui accepte 
les virgules, mais refuse les lignes de 
plus de 256 caractères et ne filtre pas 
les caractères de contrôle). A noter 
que la ligne 300 teste le commuta- 
teur 80 colonnes afin de le rétablir 
s'il à été annulé pendant l’impres- 
sion. 


Programme 


d’initialisation 

Certaines routines en langage ma- 
chine peuvent être exploitées par 
ed programmes, ici c'est le cas 
e : 

— La routine de reconstitution du 
contexte en cas d'erreur (voir le ma- 
nuel Applesoft), indispensable dans 
tout programme qui s'adresse à des 
non informaticiens : un message d’er- 
reur, c'est la honte ! 

— La routine RWTS et ses paramè- 
tres (voir le manuel du DOS, p.90). 
— La routine Catalog --> Tableau 
publiée dans Pom's 9. 

— La routine de comptage du nom- 
bre de secteurs libres (inspirée de 
celle parue dans Pom's 10). 

— La routine d'INPUT élargi (tirée 
de Pom's 5). 
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Il est avantageux d’implanter, en une 
seule fois, toutes ces routines en mé- 
moire (par exemple en page 3) par 
le biais du programme de salutation: 
ainsi, on gagne du temps et de la 
place (programmes plus courts). 


Pour rendre le programme plus lisi- 
ble et plus facile à modifier, la mé- 
thode d'implantation par S.H.LAM 
(publiée entre autres dans Pom's 2) 
peut être adoptée (comme ici pour la 
routine de comptage des secteurs 
libres) mais elle est lente. On gagne 
quelques secondes en chargeant (par 
BLOAD) un fichier binaire contenant 
toutes les routines (ici ROUTINES) 
ou encore en implantant directement 
dans le DOS de la disquette la rou- 
tine de comptage du nombre de sec- 
teurs libres (par exemple en utilisant 
le programme DIRAC de Pom's 10: 
ne pas oublier de forcer à zéro le bit 
de poids fort des adresses: ainsi 
$ADC3 devient $2DC3 et se trouve 
en piste 1, secteur C; $BA6B devient 
$3A6B en piste O0, secteur 4; les 
codes AE et B3 des octets $3A6D et 
$3A79 deviennent : 2E et 33). 


La routine IDENT.APPLE, lancée au 
début de SALUT, vérifie que l'Apple 
est bien un //e équipé d’une carte 80 
colonnes; l’octet résultant stocké en 
$3CF (975 en décimal) prend les va- 
leurs suivantes : 

e 0 si l'Apple utilisé n’est pas un //e. 

e 32 si vous travaillez avec un //e 
sans carte 80 colonnes. 

e 64 si votre Apple //e est muni 
d’une carte 80 colonnes mais sans 
mémoire auxiliaire. 

e 128 si votre Apple //e est équipé 
d'une carte 80 colonnes et d’une 
mémoire auxiliaire (Source : Tra- 
vaux Pratiques Applesoft, p.200). 


Remarque : ROUTINES réutilise les 
zones mémoires précédemment oc- 
cupées par IDENT.APPLE. 


Système d’aiguillage 
de la disquette 


Pour les utilisateurs non initiés, la dis- 
quette programme doit représenter 
un ensemble fermé et cohérent : le 
boot” débouche sur un menu d'ai- 
guillage auquel renverront également 
tous les programmes lorsqu'ils auront 
accompli leurs tâches. Le programme 
MENU assure cette fonction; il si- 
gnale le moment d'introduction de la 
disquette, demande le numéro du 
lecteur, avertit clairement en cas de 
fausse manoeuvre, et (en ligne 350) 
POKE dans les adresses 923 à 953 
le nom du programme (précédé de 





Rendez le DOS transparent 


Jean-Pierre Januel 


la longueur de ce nom) choisi par 
l'utilisateur lorsque ce programme 
nécessite un passage préalable par le 
sous-programme CAT PLEIN 
ECRAN. 

MENU utilise la technique du menu 
à barres en inversion vidéo; c’est la 
plus reposante pour l'utilisateur en 
l'absence de souris ! 


Choix sur catalogue 
en 80 colonnes 


CAT PLEIN ECRAN offre les possibi- 
lités suivantes : 


— Il affiche le catalogue de votre dis- 
quette en utilisant tout l’espace dis- 
ponible en 80 colonnes : 2 fichiers 
sur la même ligne (un enregistrement 
fichier occupe 37 caractères), soit 44 
noms de fichiers au maximum sur 
l'écran. 

— Il vous permet de travailler en 
plein écran : vous pouvez déplacer le 
curseur (une barre en inversion vidéo 
est positionnée, au départ, sur le pre- 
mier nom de la liste) sur les noms de 
fichiers en utilisant les quatre touches 
de déplacement du curseur (flèches), 
ou encore en tapant D” pour reve- 
nir au premier nom de l'écran ou 
°F” pour aller directement au der- 
nier. 

— Vous avez accès à l’ensemble du 
catalogue : si votre disquette contient 
plus de 44 fichiers, vous pouvez 
consulter la suite du catalogue (3 
écrans maximum puisque le DOS ac- 
cepte au plus 105 fichiers par dis- 
quette) en appuyant sur la touche 
"S” (Suite), puis revenir à la page 
précédente en tapant ”’P” (Précédent 
écran). 

— Vous pouvez limiter l'affichage à 
un seul type de fichiers : les fichiers 
TEXT dans l'exemple de DEMO, la 
variable TS (ligne 370 de MENU) si- 
gnale cette option à CAT PLEIN 
ECRAN, qui sélectionne les fichiers 
voulus (ligne 320). 


Lorsque vous avez amené le curseur 
sur le nom de votre fichier, appuyez 
sur RETURN pour le sélectionner. Le 
programme qui va utiliser le fichier 
choisi est alors lancé; il PEEKera 
dans les adresses 923 et suite le nom 
du fichier sélectionné, que CAT 
PLEIN ECRAN y aura POKé. 


La dernière ligne de l’écran est un 

menu aide mémoire qui rappelle la 

liste des touches utilisables et leur si- 

gnification : 

e Flèches (pour déplacer le curseur 
dans les 4 directions). 

e D (pour début de l'écran). 

e F (pour fin de l'écran). 

e S (suite du catalogue, s’il occupe 





plus d’un écran). 
e P (précédent écran s’il existe). 
e RETURN pour le choix du fichier. 


Nom des principales variables 


— PG$ : nom du programme sur le- 
quel il faudra enchaîner. 
— A$(I): enregistrements du catalo- 
que (37 caractères chacun suivi d’un 
retour chariot). 
— F$(1) : nom de fichier 
(a MID$ (A$(1),8,30)) 

NF : Lénets de fichiers dans le 
catalos 
— KT. Norohsé de fichiers sélection- 
nés (si l’on désire seulement les fi- 
chiers textes par exemple). 
— SL : Nombre de secteurs libres. 
— NL: Numéro du fichier dans sa 
colonne. 
— 10: Nombre de fichiers dans les 
colonnes précédentes (y compris 
écrans précédents). 
— NN: Numéro du fichier dans son 
écran. 
— X: code ASCII (+ 128) de la tou- 
che frappée par l'utilisateur. 
— MV: déplacement (nombre de 
lignes). 
— PH: position horizontale. 
— PV: position verticale. 


Remarque : la ligne 250 simule le 
ONERR GOTO (non actif avec 
RWTS) en récupérant le code erreur 
de RWTS en $321 et en le ”’tradui- 
sant” en code erreur du DOS: 
POKE 222,8. 


Variante 


On pourrait aussi utiliser ceci comme 
un programme de HELLO: il ne 
s’agit plus alors de sélectionner un fi- 
chier à faire traiter par un pro- 
gramme, mais un programme à lan- 
cer: CAT PLEIN ECRAN doit donc 
être intégré au programme SALUT 
(Attention ! la routine Catalog --> 
Tableau ne fonctionne que si le ta- 
bleau A$(N) est le premier déclaré et 
initialisé), et MENU n'a plus de rai- 
son d'être, pas plus que les lignes 
180 et 850 à 870 de CAT PLEIN 
ECRAN (PEEK et POKE du nom de 
fichier); les routines de traitement 
d'erreur (lignes 30 à 70 et 240 à 
260) deviennent également inutiles; 
supprimer aussi le suffixe ’,D’LE’ 
après CATALOG en ligne 290; la fin 
de programme devient : 


840 PRINT : TEXT : HOME 

850 IF MID$(A$(NN),2,1) = ”’A” 
THEN PRINT D$ RUN” A$(NN) 
860 IF MID$(A$(NN),2,1) = "B” 
THEN PRINT D$ BRUN” A$(NN) 
870 IF MID$(A$(NN),2,1) = "T” 
THEN PRINT D$”EXEC ”’A$(NN) 


Ces deux dernières lignes supposent 
que vous connaissiez le contenu des 
fichiers : à vos risques et périls….(le 
programme ainsi transformé ne 
s'adresse évidemment plus aux non 


initiés); vous pouvez cependant re- 
mettre en début de programme un 
petit sous-programme de traitement 
d'erreur du genre : 


30 CALL EE POKE 216,0: 
Y = PEEK(222) 

40 IF Y = 13 THEN VTAB12: 
PRINT ‘Erreur sur le type de fichier. 
Ret --> autre essai ou 

Esc --> Applesoft”; : GET Z$: 

DENT JF Z$ = CHR$(13) THEN 


50 END 


Vous pouvez même prévoir que RE- 
TURN lance un RUN ou BRUN et 
Espace” (par exemple) un LOAD 
où BLOAD. 


Edition plein écran 
sur catalogue 


Visicalc et Applewriter offrent des 
possibilités d’action assez limitées sur 
le catalogue d’une disquette. FID 
n'est intéressant que pour des opéra- 
tions en série sur des fichiers; quoi 
qu'il en soit, l'instruction la plus ma- 
laisée à utiliser est le RENAME, qui 
oblige à taper en entier le nom de 
l’ancien fichier et le nouveau. 


Le programme EDITCAT remédie à 
ces lacunes : 

— Il offre toutes les fonctions de dé- 
placement de CAT PLEIN ECRAN. 

— Vous pouvez non seulement effec- 
tuer les opérations classiques d’effa- 
cement, de verrouillage et déverrouil- 
lage de fichiers, mais aussi aller 
modifier directement le nom d’un fi- 
chier comme si vous travailliez avec 
un traitement de textes de type Ap- 
plewriter. 

— De nombreuses sécurités sont pré- 
vues : le programme refuse d’obéir si 
vous essayez de franchir les limites 
de l'écran ou du catalogue, il vous 
avertit si vous avez oublié de fermer 
le lecteur, si votre disquette n’est pas 
formattée sous DOS 3.3, si vous es- 
sayez d'effacer ou de modifier un fi- 
chier verrouillé et même si vous es- 
sayez d'intervenir sur le ”’trou” laissé 
par un fichier effacé, ou si vous avez, 
par mégarde, rebaptisé un fichier 
avec un nom déjà attribué. 


Quand vous l’appelez, le programme 
commence par vérifier que vous avez 
bien mis une disquette DOS 3.3 
dans le lecteur choisi et refermé la 
porte (pour ce faire, il va lire le 
VTOC de la disquette en utilisant 
RWTS et vérifie le numéro de la ver- 
sion du DOS: 4 ème octet du 
VTOC), puis il charge le catalogue 
de la disquette et affiche les 44 pre- 
miers noms de fichiers. 


Sur la première ligne de l'écran, il 
précise le nombre total de fichiers de 
la disquette et le nombre de secteurs 
libres. 

La dernière ligne rappelle la liste des 
touches que vous pouvez utiliser 


60 


pour accomplir les actions désirées : 


e Flèches (pour le déplacement du 
curseur dans les 4 directions). 

e D (début: appuyer sur la touche 
D ou d pour aller au premier nom 
en haut à gauche de l'écran). 

e F (fin: pour aller au dernier nom 
de l’écran). 
S (suite : pour aller à 
vant). 
e P (pour revenir à l'écran précé- 
dent). 
M (pour modifier le nom du fichier 
sur lequel se trouve le curseur 
(voir plus loin le sous-menu de 
cette option). 
E (pour effacer le fichier : un RE- 
NAME est d’abord tenté pour véri- 
fier que le fichier n’est pas ver- 
rouillé; il vous est ensuite 
demandé, par message en haut 
d'écran, confirmation ou annula- 
tion : O (ui) / N(on)). 
V (pour vérrouiller un fichier). 
W (pour le déverrouiller). 
C (pour compacter l'affichage, éli- 
miner les ”’trous” laissés par les fi- 
chiers effacés, et remettre à jour 
les compteurs de nombre de fi- 
chiers et de secteurs libres: en 
fait, il s’agit tout simplement de re- 
charger le catalogue mis à jour). 
RETURN (Retour chariot) indique 
la fin de travail sur ce catalogue : 
le programme demande si vous 
désirez passer à une autre dis- 
quette (RETURN) ou retourner au 
menu général de la disquette (par 
la touche ESC). 


Quelques précisions sur 
la modification 


Cette fonction affiche dans le coin 
supérieur gauche de l'écran le mot 
“Modification”, remplace le curseur 
barre par un curseur caractère et affi- 
che sur la dernière ligne un nouveau 
menu : 


e Flèches: déplacement du curseur 
à l’intérieur du nom de fichier. 

e Pomme Ouverte-X : remplace le 
caractère sous le curseur par le ca- 
ractère tapé (ici X). 

e Pomme Pleine-Y : insère le carac- 

tère Y avant le curseur; cette op- 

tion ne fonctionne pas sur les 29 

ème et 30 ème caractères : utiliser 

le remplacement dans ce cas. 

Del : la touche DELETE vous per- 

met d'effacer le caractère qui se 

trouve sous le curseur. 

e ESC: en appuyant sur cette tou- 
che, vous annulez toutes les modi- 
fications effectuées sur ce nom de 
fichier; l’ancien nom est réaffiché 
et vous retournez au mode ‘’Dé- 
placement”. 

e RETURN permet de confirmer le 
nouveau nom de fichier (RE- 
NAME, après avoir vérifié que le 
nouveau nom n'est pas déjà attri- 
bué); vous êtes alors ramené au 
mode Déplacement”. 


l'écran sui- 
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Signe de reconnaissance 


| 


| 


| 


SES 
0 


| 


| 


| 





Sac de voyage : caoutchouc souple 
“high tec”, gris doux. Sangles ton 
sur ton. Fermeture par glissière. 

Grande poche intérieure. Marquage 





Sac sport: toile enduite 
marine, biais gris. 


Sangles + bandoulière 
amovible, ton sur ton. 
Grand poche extérieure 
fermant par glissière. 
Fond caoutchouc isolant. 
Longueur totale : 70cm. 
Largeur : 30cm. 











bagage. 
Attaché-c 


Les « goodies » dans le jargon Apple, ce sont tous les accessoires à s'offrir ou à offrir pour (se) faire plaisir. 
La collection 85 vous propose une gamme sport et voyage. Nous espérons que ces nouveautés sauront vous 
séduire. Elles ont été créées dans l'esprit Apple, pour vous qui partagez avec nous une certaine façon de 
vivre, de travailler, de bouger... 


Désignation Quantité | Prix unitaire | Prix total | 
Sac sport bleu | 285,00 F 

| Sac voyage gris 285,00 F 
Attaché-case gris | | 230,00 F 

Montant total de la commande. Frais de port inclus TTC. 


Règlement par chèque joint à l'ordre de APPLE SEEDRIN, et adressé à : 

«Boutique Apple » Avenue de l'Océanie ZA de Courtabœuf - BP 131 - 91944 Les Ulis Cedex 

Cette commande est à envoyer à: 

Nom: __ Adresse : | _ 





Des conditions particulières sont réservées aux adhérents du Club Apple. Souhaitez-vous recevoir des 
informations sur le Club Apple: QUE) NONO 


ase : Assorti au sac de 


voyage, souple et 
confortable. Une 
poche intérieure 
compartimentée. 
Fermeture par deux 
boutons noirs. 
Marquage bagage. 





®& adeti 
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Le programme contrôle le bon res- 
pect des règles du DOS concernant 
les noms de fichiers : il transforme les 
minuscules en majuscules, refuse les 
caractères non alphabétiques comme 
première lettre du nom, les virgules 
et même les caractères de contrôle 
qui poseraient des problèmes à l’affi- 
chage. 


Note: de nombreux messages ont 
été prévus pour prendre en compte 
le travail avec un seul lecteur de dis- 
quette : si vous en avez deux, vous 
pouvez alléger notablement les pro- 
grammes en affectant le premier à la 
disquette programme et le second à 
la disquette fichiers. Vous pouvez 
alors éliminer les messages du style 


Insérez la disquette programme 
(ou : fichier)...” ou ”’Erreur ! Ce n'est 
pas la disquette programme !”, etc. 


Utilisation 
des pages 0 à 3 
Routines en langage machine 


IDENT.APPLE : A$2D4,L$FB 
ROUTINES : A$300,L$9B 


— $300 (768): reconstitution du 
contexte en cas d'erreur. 

— $30B (779): lancement de 
RWTS. 


— $314 à $328 : paramètres RWTS. 
— $316 (790) : numéro de lecteur; 
— $321 (801) : code erreur 

— $32A (810) : routine Catalog --> 


Tableau 
— $340 (832): INPUT élargi 


Paramètres divers 


— $06-$07 : 
libres 

— $08 : numéro de lecteur 

— $09: mode d'affichage (40 ou 
80) 

— $10: numéro de choix dans le 
menu. 

— $11: option ‘fichiers textes uni- 
quement”’ pour CAT PLEIN ECRAN 


Nom de programme ou de fi- 
chier 


— $39B (923) : longueur du nom 
— $39C à $3BA : nom du fichier 1 


nombre de secteurs 





Programme SALUT 





120 HOME : 
130 


ONERR GOTO 70 
GOSUB 450: GOSUB 30: 


PRINT TAB MA) 


10 REM PROGR. D’INITIALISATION ;1V#"  "ST$" "NO$: GOSUB 40 
20 Y$ = "ADC3:20 6B BA N BAéB:20 2F AE A9 | 140 UTAB 24: POKE 1403,18: PRINT IV$"FIè 
00 85 06 85 07 A0 C8 18 B9 F2 B3 ches"NO$" “"IV$"Choix par Return"NO 
FO 0E 0A 90 FB 48 Eé 06 DO 02 Eé 0 $" "IVS$S"Esc --> Menu Général"NO$; 
7 68 18 90 FO 88 DO E9 60": REM C | 150 FOR CH = 1 TO NC: GOSUB 50: PRINT C$ 
omptage secteurs libres (CH): NEXT 
30 D$ = CHR$ (4): REM D$=CTRL-D 160 CH = 1: GOTO 230 
40 PRINT D$"BRUN IDENT.APPLE":AP = PEEK | 170 POKE - 16368,0 
(975): IF AP < 64 THEN PRINT "DE | 180 C = PEEK € - 16384): IF C < 128 THEN 
SOLE: CE PROGRAMME NECESSITE": PRI 180 
NT TAB( 10);: INVERSE 190 IF C = 138 THEN 240: REM Bas 
50 IF AP = 0 THEN PRINT "UN APPLE//E" 200 IF C = 139 THEN 260: REM Haut 
60 IF AP = 32 THEN PRINT "UNE CARTE 80 210 IF C = 141 THEN 280: REM Return 
COLONNES ” 220 GOTO 170 
70 IF AP < 64 THEN NORMAL : END 230 GOSUB 50: PRINT IVS$C#(CH)NO$: GOTO 1 
80 PRINT D$"PR£3" 70 
90 PRINT : VTAB 1: HTAB 32: INVERSE : PR | 249 GOSUB 60:CH = CH + 1: IF CH > NC THE 
INT " BONJOUR ";: NORMAL NCH=1 
É 100 Y$ = Y$ + " N D9CéG" 250 GOTO 230 
Fa 110 FOR J = 1 TO LEN (Y$): POKE S11 + J | 240 GOSUB 40:CH = CH — 1: IF CH = O0 THEN 
# , ASC € MIDS CY$,J,1)2) + 128: NEXT CH = NC 
EC J: POKE 72,0: CALL — 144 270 GOTO 230 
“120 PRINT : PRINT D$#"BLOAD ROUTINES": CA | 580 IF CH < 1 OR CH > NC THEN PRINT 6G$: 
ss LL 832 GOTO 170 
130 PRINT : PRINT D$"RUN MENU" 290 POKE - 16368,0 
“ 140 END 300 PRINT : HOME : POKE 10,CH:TS = 0 
pu 310 ON CH GOTO 320,330,380,320,380,440 
Ê Programme MENU 320 T$ a FICHIER TEXTE": GOTO 
“ 10 REM ——— MENU --- 330 T$ = “IMPRESSION FICHIER TEXTE" 
20 GOTO 90 340 PG$ = "DEMO": HOME : GOSUB 30 
30 MA = INT €(78 —- LEN CT$#)) / 2): PRIN | 350 LP = LEN (PG#$#): POKE 923,LP: FOR 1 = 
T : GOSUB 40: PRINT TABC MA) ;1U$" 1 TO LP: POKE 923 + I, ASC ( MID$ 
"T$" "NO$ CPG$,1,1)): NEXT 
40 PRINT TAB MA) ;: INVERSE : FOR I = 1 360 COL = 80: IF CH = 4 THEN COL = 40 
TO LEN CT$) + 4: PRINT * *j;: NEX | 370 POKE 9,COL:TS = 1: POKE 11,TS: PRINT 
T : NORMAL 3: PRINT : RETURN D$"RUN CAT PLEIN ECRAN,D1": REM 
50 VTAB 2 x CH + 7: POKE 1403, INT ((80 TS=0Option “fichiers TEXT seuls" 
— LEN CC$CCH)22 / 23: RETURN 380 PRINT : UTAB 10: PRINT “Insérez votr 
60 GOSUB 50: PRINT C#CCH): RETURN e disquette fichier puis donnez Île 
70 CALL 768: POKE 216,0: ONERR GOTO 70 n° de lecteur.";: GET Z$:NL = VA 
80 Y = PEEK (222): IF Y = 8 THEN PRINT L €2$): IF NL < > 1 AND NL € > 2 
G$IV$"ATTENTION!"NO$" Porte lecteu THEN PRINT G$: GOTO 380 
r disq.ouverte ou disq.vierge ou a 390 IF CH = 3 THEN POKE 8,NL: PRINT : P 
bimée.": PRINT “Fermez la porte ou RINT D$"RUN EDITCAT,DI" 
changez la disquette puis appuyez | 490 PRINT : HOME : PRINT TABC 26)1V#"CA 
sur une touche.";: GET 2$: PRINT TALOGUE DE VOTRE DISQUETTE"NOS$S" 
: HOME : RESUME Tapez ‘Retour chariot’" 
90 D$ = CHR$ (4): REM Ctri-D 410 PRINT TAB( 64)"pour continuer." 
100 R$ = CHR$ (13):6$ = CHR$ (7): REM 420 POKE 34,2 





62 


Return & Ctri-G 
110 IV$ = CHRS (15) :N0O$ = 


M INVERSE et NORMAL 


CHR$ (14): RE 


430 


PRINT D$;"CATALOG,D'NL: VTAB 2: POKE 
1403,31: PRINT PEEK (6) + 256 * 
PEEK (7);" 


Secteurs libres":: GET 
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440 
450 


460 
470 
480 
490 
500 


510 


Z$: TEXT : HOME : GOTO 130 
END 
T$ =" DISQUETTE ":ST$ = " 
—M e n u- “":NC = é 
C$C1) = “Afficher un fichier texte ” 
C$(2) = "Imprimer un fichier texte” 
C$(3) = “Remanier le catalogue d’une 
disquette" 
C$(4) = C$(1) + "en 40 col.":C$(1) = 
C$(1) + “en 80 col." 
C$(5) = "Voir le catalogue de votre d 
isquette” 
C$(é) = "Arréter et passer en Basic": 
RETURN 





Programme EDICAT 


10 REM ——— EDITEUR DE CATALOGUE 
PLEIN-ECRAN —-- 
20 GOTO 3460 
30 REM ——-- Traitement erreurs --- 
40 CALL 768: POKE 216,0:Y = PEEK (222): 
POKE — 16368,0: ONERR GOTO 40 
50 IF Y = 8 THEN HOME : PRINT B$B$B$"At 
tention! Porte lecteur disq.ouvert 
e ou disq.vierge ou abimée.": PRIN 
T "Fermez la porte ou changez la d 
isquette puis appuyez sur une touc 
he.";: GET Z$: GOTO 100 
60 IF Y = 4 THEN HOME : VTAB 12: PRINT 
B$B$"Disquette protégée. Enlevez 1] 
fétiquette.";: GET Z$: GOTO 100 
70 IF Y = 10 THEN GOSUB 180: PRINT B$B$ 
B$IV$"Attention! Fichier verrouill 
é";: GOSUB 110: RETURN 
80 IF Y = 6 THEN PRINT B$B$"Erreur! Ce 
n’est pas la disquette programme!" 
: GOTO 1170 
90 GOTO 450 
100 PRINT : HOME : ON LC GOTO 400,530,11 
70 
110 FOR I = 1 TO 1000: NEXT : GOSUB 150: 
RETURN 
120 REM ——— Déplacements curseur -- 
130 GOSUB 180 
140 PRINT F$CNN + 10)3;:NN = NN + MU: IF 
NN = NI THEN UTAB PV: POKE 1403,P 
H: GOTO 160 
150 GOSUB 180 
160 PRINT IVSFS#CNN + IO)NO$; 
170 RETURN 
180 IF NN < 23 THEN UVTAB NN + 1: HTAB 8 
190 IF NN > 22 THEN UTAB NN - 21: POKE 
1403,47 
200 RETURN 
210 IF NN < 23 THEN VTAB NN + 1: HTAB 1 
220 IF NN > 22 THEN UVTAB NN - 21: POKE 
1403,40 
230 RETURN 
240 REM ——— Ss-programmes de vérifi 
cation & réinitialn —--—- 
250 VTAB 20: PRINT R$D$"RENAME "F$(NN + 
10)","F#CNN + 10): RETURN 
260 IF F$CNN + 10) = * 
" THEN GOSUB 180: PRI 
NT B$B$B$IV$'"Fichier effacé"NOS ; : 
GOSUB 110: POP 
270 VTAB 20: RETURN 
280 UVTAB 24: POKE 1403,0: PRINT IV$"Flèc 
hes"NO$" "IV$"DCébut"NO$S" "IV$"F(i 
n'NO$" "IV$"S(uite"NOS" "IV$"P(réc 
"NO$" "IV#$"MCodif"NO$" "IU$"E(ffac 
"NO$" "IU#$*UCerr"N0O$" "IU$"LEdéver 
r'NO$" "IU$*"CC(omp'N0O$" "IU$"/Ret”- 
Pom's n° 18 


290 


300 
310 


320 


330 
340 
350 


360 
370 
380 
390 
400 
410 


420 
430 


440 


450 


460 


470 


480 
490 
500 


510 
520 
530 
540 
550 


560 


570 
580 


590 
600 


610 
620 


630 
640 


650 
660 
670 





>menu"NO$ ; : RETURN 

REM ——— Vérification pour éviter d 
ouble attribution --- 

FOR I = 1 TO NF 

IF FF$ < > F$CI) THEN 330 

GOSUB 180: PRINT B$B$IV#$"Nom déjà at 
tribué"NO$;: GOSUB 110: POP : GOTO 


——— PROGRAMME PRINCIPAL --- 


CHR$ (15)2:N0O$ = CHR$ (14) :B$ 
CHR$ (7):R$ = CHR$ (13) 
CHR$ (4): REM Ctri-D 
1: ONERR GOTO 40 
105: DIM ASCN),F$CN) 
ER = 0:KL = PEEK (8): POKE 790,KL: C 
ALL 779 
ER = PEEK (801): IF ER = 64 THEN PO 
KE 222,8: GOTO 40 
IF ER = 16 THEN POKE 222,4: 
DOS = PEEK (8195): 1F DOS < > 2 AND 
DOS < > 3 THEN VTAB 12: PRINT B 
$B$"SEULES LES DISQUETTES FORMATTE 
ES SOUS "IV$"D0S 3.3 ou 3.2"N0$" S 
ONT ACCEPTEES.": FOR I = 1 TO 2000 
: NEXT : GOTO 1180 
REM ——-— Affichage catalogue 


GOTO 40 


CO):A$ = "": FOR I = 

= À$ + “ ": NEXT : FOR 
I = N TO 1 STEP - 1:A$(1) = À$ + 
AS: NEXT :A$(0) = ÀA$ + "":A = PEE 
K (107) + PEEK (108) * 256 + 8: P 
OKE 254, PEEK (A): POKE 255, PEEK 
(A + 1) 

PRINT R$D$"NOMONCIO": POKE 54,42: 

KE 55,3: POKE 56,60: POKE 57,33: 
LL 1002: PRINT D$"CATALOG,D"KL: 
INT D$"PR£O": PRINT D$"IN£O" 

NF = 0: FOR I = 1 TO N: IF MID$ CA$< 
12,2,12 € > " * THEN NF = NF + 1: 
NEXT 

SL = PEEK (é) + 256 * 

PRINT D$"PR£3":LC = 2 
PRINT TAB( 28)1V$" CATALOGUE *“NO$" 
"IV#SNF;NO$" fichiers “"1VSS 
L;NO$" secteurs libres": PRINT : P 
OKE 34,1 
GOSUB 280 
POKE 35,23: HOME 
10 = O:NN = 1 
NL = NF — 10: IF NL >» 
FOR I = 1 TO NL:II 
+ 1 
POKE 1403,0: IF 10 = 
HEN POKE 1403,40 
PRINT LEFTS CA$(11),7); 
F$CII1) = MID$ (A$S(II1),8,30): 


= F 
19:À$ 


PO 
CA 
PR 


PEEK (7) 


22 THEN NL = 22 
1 + 10: VTAB I 


22 OR 10 = 66 T 


PRINT F 


22 OR 10 = 66 THEN 10 = 10 - 
22: GOTO 640 
IF NF — 10 < 23 THEN 640 
NL = NF — 10 — NL: IF NL > 22 THEN NL 
= 22 
10 = 10 + 22: VTAB 2: GOTO S50 
NN = 1: UVTAB 2: HTAB 8: PRINT IVS$SFS#(CN 
N + IO)NO$ 
RENM ——— Choix utilisateur --—- 
POKE - 16368,0 
X = PEEK € —- 16384): 
670 


IF X < 128 THEN 





680 
690 
700 
710 
720 
730 


740 
750 
760 
770 
780 
790 
800 


810 
820 
830 
840 
850 


860 
870 
880 


870 
900 
910 
920 
930 


940 
950 


760 


970 





780 


990 


1000 


1010 


1020 


1030 


1040 
1050 
1060 
1070 
1080 
1090 
1100 


IF X = 136 THEN GOSUB 890 

IF X = 138 THEN GOSUB 860 

IF X = 139 THEN GOSUB 840 

IF X = 141 THEN 1100 

IF X = 149 THEN GOSUB 910 

IF X > 224 AND X < 251 THEN X = X - 
32 

IF X = 195 THEN 450 

IF X = 196 THEN GOSUB 950 

IF X = 197 THEN GOSUB 960 

IF X = 198 THEN GOSUB 1030 

IF X = 205 THEN GOSUB 1220 

IF X = 208 AND 10 > O THEN 1080 

IF X = 211 AND NF > 10 + 44 THEN 105 
0 

IF X = 214 THEN GOSUB 1010 

IF X = 215 THEN GOSUB 1020 

GOTO 660 

IF NN = 1 THEN 1070 
= — 1:NI = 22:PU = 23:PH = 7: GOS 
UB 130: RETURN 

IF NN = NF — 10 THEN RETURN 

IF NN = 44 THEN X = 211: RETURN 

MU = 1:NI = 23:PU = 2:PH = 47: GOSUB 


130: RETURN 
IF NN < 23 THEN RETURN 
MU = — 22:NI = 0: GOSUB 130: RETURN 
IF NN > 22 THEN RETURN 
IF NF — 10 < 23 THEN RETURN 
MU = 22: IF NN + MU > NF — 10 THEN R 
ETURN 
NI = 0: 
MU = 1 


RETURN 
GOSUB 130: 


GOSUB 130: 
— NNiNI = 0: RETURN 
GOSUB 260:Y = 0: IFY = 1 

O0 THEN RETURN 
VTAB 1: POKE 1403,0: 
er ? Confirmez CO/N)"NO$;: 

IF Z$ < > "O0" AND 2$ < ) 
EN 970 
VTAB 1: 


GOSUB 250: 


PRINT IV$'"Effac 
GET 2%: 
"N° TH 


PRINT * 
, 

IF 2$ = "NN" THEN RETURN 

PRINT R$D$"DELETE "F$#CNN + 10) :F#CN 
N + 10) = * : 

GOSUB 210: PRINT ” 
“"IVSFSCNN + IO)NO$;: RETURN 

GOSUB 260: PRINT R$D#"LOCK "F$&CNN + 
10): GOSUB 210: PRINT "*#";: RETUR 

N 

GOSUB 260: PRINT R$D$"UNLOCK 
+ 10): GOSUB 210: PRINT " *;: 


POKE 1403,0: 


“F$ (NN 
RET 


MV = NN — 10: 
HEN MV = 44 — NN 
NI = 0: GOSUB 130: RETURN 
IF 10 » 66 THEN 660 
10 = 10 + 44: HOME : GOTO 540 
IF 10 = O0 THEN RETURN 
10 = 10 - 44: HOME : GOTO 540 
REM ——— Fin traitement ——- 
HOME : VTAB 10: HTAB 1: PRINT "Voul 
ez-vous passer à une autre disquet 
te ou retourner au menu général ? 
“: VTAB 24: POKE 1403,0: CALL - 8 
68: PRINT IV$"’Return’ = autre dis 
quette"NO$" "IV$*"’/Esc’ = menu"NO$; 
POKE - 16368,0 
X = PEEK ( - 16384) 
IF X < 128 THEN 1120 
IF X < }»} 141 AND X « 
110 
POKE 
E 


IF NF > 44 + I0OT 


> 155 THEN 1 


— 16368,0: PRINT : 


11460 
1170 


1180 
1190 


1200 
1210 


1220 
1230 


1240 


1250 
1260 


1270 
1280 


1290 
1300 


1310 
1320 


1330 


1340 
1350 


1360 
1370 
1380 


1390 
1400 


1410 


1420 


1430 
1440 
1450 
1460 


IF X = 141 THEN 1190 
LC = 3: IF KL = 1 THEN VTAB 10: PRI 
NT “Insérez la disquette programme 


en Di puis faites ‘’Return’";: GET 
2$ 

PRINT R$D#"RUN MENU,D1" 

VTAB 10: PRINT “Insérez votre disqu 


ette et donnez le n° du lecteur":3: 


GET Z2$: PRINT :KL = VAL (Z$): 1F 
KL < > 1 AND KL < > 2 THEN 1190 
POKE 8,KL: CLEAR : GOTO 360 


REM 
hier ——- 

GOSUB 260:Y = 0: 
10 THEN RETURN 

VTAB 1: HTAB 1: 
ion"NO$ ; 

VTAB 24: POKE 1403,0: PRINT I1V$"--} 
"NOS" "IU$S"<—--"NOS" *"IVUS"PomOuv=Re 
mplacer"NO$" "IV$"PomPlne=Insérer" 
NO$" "IU$"Del=Effacer "NO$" "“IV$'"ESs 
c=Annuler "NO$" "IU$"Ret=Confirmer 
"NO$ ; 

F$CNN + 10):PH = 7 

Y$ = "": IF PH > 7 THEN Y$ = 

CFF$,PH — 7) 

2$ = "": IF PH < 36 THEN 2$ = 

$ (FF$,36 - PH) 

X$ = MID$S (FF$,PH — 6,1): 

3: PRINT Y$IVSXSN0S2Z$ ; 

POKE — 16348,0 

X = PEEK ( —- 16384):P0 = PEEK « - 

16287) :PP = PEEK ( —- 16286) 
IF X < 128 THEN 1300 

IF X = 136 AND PH > 7 THEN PH = 
— 1: GOTO 1260 

IF X 149 THEN 1440 

IF X 155 THEN 1460 

IF X = 141 THEN GOSUB 300: VTAB 20 
: PRINT R$D$S"RENAME "F$CNN + 10)", 
“"FF$:FSCNN + 10) = FF$: GOTO 1440 


--- Modification nom fic 
GOSUB 250: IF Y = 


PRINT IV$"Modificat 


LEFTS$ 
RIGHT 


GOSUB 180 


PH 


IF X < 160 THEN 1290 

IF X = 255 THEN FF$ = Y$ + 2$ + CH 
R$ (160): GOTO 1260 

IF X > 224 AND X < 251 THEN X = X -— 
32 

IF X = 172 THEN 1290 


7 AND {X > 218 OR X < 193) 
PRINT B$1U$"Comme 
GOSUB 1 


IF PH = 
THEN  GOSUB 180: 
ncez par une lettre! "NO$;: 
10: GOTO 1260 

IF PO > 127 THEN FF$ = Y$ + 
X) + 2$: GOTO 1440 
IF PP > 127 AND PH < 35 THEN FF$ = 


CHR$ « 


Y$ + CHR$ CX) + X$ + LEFTS$ (2%, 
LEN (2$) — 1): GOTO 1440 

GOTO 1290 

IF PH < 36 THEN PH = PH + 1 

GOTO 1260 

VTAB 1: POKE 1403,0: PRINT * 

5: GOSUB 280: GOSUB 150: RET 

URN 





Programme CAT PLEIN ECRAN 


10 


20 
30 


40 Y 





64 


REM ——— CATALOGUE PLEIN-ECRAN 

GOTO 180 

CALL 768: POKE 216,0: ONERR GOTO 30: 
POKE — 16368 ,0 

=  PEEK (222): IF Y = 8 THEN PRINT 


B$B$B$'"Attention! Porte lecteur di 
sq.ouverte ou disq.vierge ou abimé 


Pom's n° 18 


250 


260 


270 
280 


270 


300 
310 
320 
330 
340 


350 
360 


370 


e.": PRINT “Fermez la porte ou cha 
ngez la disquette puis appuyez sur 
une touche.";: GET Z$: PRINT : HO 


ME : IF ER = 64 THEN 230 
IF Y = 8 THEN RESUME 
IF Y = 6 THEN VTAB 15: PRINT B$B$"Er 


reur! Ce n’est pas la disquette pr 


ogramme!": GOTO 880 
GOTO 280 
REM ——— Déplacements curseur -- 
GOSUB 140 


PRINT FS$CNN + 10)3;:NN = NN + MV: IF 
NN = NI THEN UTAB PV: POKE 1403,P 
H: GOTO 120 

GOSUB 140 

PRINT IU$F#S(NN + IO)NO$ ; 

RETURN 

IF NN < 23 THEN VTAB NN + 1: 

IF NN > 22 THEN VTAB NN - 21: 
1403,47 

RETURN 

REM 


LP = 


HTAB 8 
POKE 


——— PROGRAMME PRINCIPAL - 


PEEK (923): FOR I 
PEEK (923 + 1):PG$ 
CX): NEXT 

ONERR GOTO 30 
IV$ = CHR$ (15):NCS = 
CHR$ (7):R$ = 
D$ CHR$ (4): REM 
N = 105: DIM AS$SCN) ,F#CN) 

VTAB 10: PRINT "Insérez votre disque 

tte fichier puis donnez le n° de 1] 


1 TO LP:X = 
PG$ + CHRS 


CHR$ (14):B$ 
CHR$ (13) 
Ctri-D 


ecteur: ";: GET Z$:LE = VAL (2$): 
IF LE < 1 OR LE > 2 THEN PRINT B 
$: GOTO 230 


ER = 0: POKE 8,LE: POKE 790,LE: CALL 
779: REM Lecture du VTOC par RUTS 


ER = PEEK (801): POKE 801,0: IF ER = 
64 THEN PRINT : POKE 222,8: GOTO 
30 
DOS = PEEK (8195): IF DOS < > 3 THE 
N  VTAB 15: PRINT B$B$"SEULES LES 
DISQUETTES FORMATTEES SOUS "IV$"D0 
S 3.3"N0$" SONT ACCEPTEES.": FOR I 
= 1 TO 2000: NEXT : TEXT : HOME : 
PRINT D$"®RUN MENU,D1" 
REM ——— Affichage catalogue --- 
HOME :À = FRE (0):A$ = ""; FOR I = 
1 TO 197:A$ = A$ + " ": NEXT : FOR 
1 = N TO 1 STEP - 1:A$(1) = AS + 
A$: NEXT :A$(0) = ÀA$ + "":A = PEE 
K (107) + PEEK (108) * 256 + 8: P 
OKE 254, PEEK (A): POKE 255, PEEK 
CA + 1) 


PRINT R$D$"NOMONCIO": POKE 54,42: PO 
KE 55,3: POKE 56,60: POKE 57,3: CA 
LL 1002: PRINT D$"CATALOG,D'LE: PR 
INT D$"PR£O": PRINT D$"IN£O" 


FOR 1 = 1 TON: IF MID$ CA$(1),2,1) 
€ > " * THEN NF = NF + 1: NEXT 

KT = NF:TS = PEEK (11): IF TS € D 1 
THEN 340 

KT = 0: FOR I = 1 TO NF: IF MID$S (AS 
C12,2,1) = CHR$ (212) THEN KT = K 
T + 1:A$CKT) = AS(1) 

NEXT 

SL = PEEK (6) + 256 *x PEEK (7) 


PRINT D$"PR£3" 

IF KT = O0 THEN PRINT B$"Erreur: il 
n’y a pas de fichier texte sur cet 
te disquette.": GOTO 230 


PRINT TAB( 28)I1V$* CATALOGUE "“NO$" 
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"IVSNF:;NO$" fichiers "I1VSS 
L;NO$" secteurs libres": PRINT : P 
OKE 34,1 
VTAB 24: PRINT IV$" --3, <--, DCébut 
» FCin, Suite, Précédent écran 
— choix fichier : ‘’Return’"NO$; 
POKE 35,23: HOME 
10 = O:NN = 1:NF = KT 
NL = NF -— 10: IF NL > 22 THEN NL = 22 
FOR 1 = 1 TO NL:1I1 = I + 10: VTAB 1! 
+ 1 
POKE 1403,0: IF 10 = 
HEN POKE 1403,40 
PRINT LEFTS$ CA$CI11),7); 
F$#CII) = MID$ (A$S(II1),8,30): 
$(I1); 
NEXT 
IF 10 = 22 OR 10 = 
22: GOTO 510 
IF NF - 10 < 23 THEN 510 
NL = NF — 10 — NL: IF NL > 22 THEN NL 
= 22 
10 + 22: UTAB 2: GOTO 420 
1: VTAB 2: HTAB 8: PRINT IV$F$(N 
N + I0O)NO$ 
——— Choix utilisateur --- 
— 16368,0 
= PEEK ( - 16384): 


22 OR 10 = 


PRINT F 


éé THEN 10 = 


IF X < 128 THEN 


136 
138 
139 
141 
149 
224 


THEN  GOSUB 
THEN  GOSUB 
THEN  GOSUB 
THEN 840 

THEN  GOSUB 
AND X < 251 


710 
680 
660 





730 
THEN X = X - 


VHUUUMMH 


196 
198 
208 
211 


GOTO 530 


THEN GOSUB 770 

THEN  GOSUB 780 

AND 10 > O0 THEN 830 

AND NF > 10 + 44 THEN 800 


da. 
i 


Lai 

n 

X 
| 


1 THEN 820 

1INI = 22:PU = 23:PH = 7: GOS 
RETURN ; 
10 THEN RETURN 

211: RETURN 

2:PH = 47: GOSUB 


MU =  — 
UB 90: 
IF NN = NF - 
IF NN = 44 THEN X = 
MU = {:NI = 23:PU = 
90: RETURN 
IF NN < 23 THEN RETURN 
MU =  — 22:NI = 0: GOSUB 90: 
IF NN > 22 THEN RETURN 
IF NF — 10 < 23 THEN RETURN 
MV = 22: IF NN + MV > NF - 10 THEN R 
ETURN 
NI = 0: 


RETURN 


GOSUB 90: RETURN 
— NN:NI = 0: GOSUB 90: RETURN 
NN — 10: IF NF > 44 + I0 TH 
44 — NN 
NI = 0: GOSUB 90: RETURN 
IF 10 > 66 THEN 530 
10 = 10 + 44: HOME : GOTO 410 
IF 10 = O0 THEN RETURN 
10 = 10 - 44: HOME : GOTO 410 
NN = NN + 10: POKE — 16368,0: TEXT : 


LEN CF#CNN)D) TO 1 STEP - 1 
5: IF MIDS CF$SCNN)D,1,1) € >  CHRS$ 
(160) THEN LP = I: POKE 923,LP: G 
OTO 870 
NEXT 
FOR 1 = 1 TO LP: POKE 923 + I, ASC « 
MID$ CF$CNN),1,1)): NEXT 
IF LE = 1 THEN PRINT : VTAB 12: PRI 
NT “Insérez la disquette programme 


65 


DHeRENEr 


LARNE 


bic] 





66 


890 


en Di puis faites ‘’Return’";: GET 
2$ 
PRINT R$D$"RUN "PG$",Di" 





Programme DEMO 
10 D$ = CHR$ (4):B$ = CHR$ (7) 


20 
30 
40 
50 


60 
70 


80 


90 


ONERR  GOTO 40 
GOTO 120 
CALL 768: POKE 216,0 


Y = PEEK (222): IF IP = 2 THEN PRINT 


D$"PR£O®” 
PRINT D$"CLOSE "FI$: ONERR GOTO 40 
IF Y = S THEN INVERSE : PRINT "FIN D 
E FICHIER": NORMAL :F = 1: GOTO 28 
0 
IF Y = 6 AND F = 1 THEN HOME : PRINT 
B$"Erreur: ce n’est pas la disque 
tte programme!": PRINT :NL = 1: GO 
TO 280 
IF Y = 6 THEN PRINT B$'"Erreur: le fi 
chier "“FI$: PRINT "n’est pas sur c 
ette disquette.": GOTO 140 

IF Y = 8 THEN HOME : PRINT B$"Ferme 
z la Te du lecteur de disq.SUP! 
“3: G 2$: PRINT : RESUME 

HOME : GOTO 280 

LP = PEEK (923): FOR I = 1 TO LP:FIS$ 
= FI1$ + CHR$ € PEEK (923 + 1)): 
NEXT 
COL = PEEK (9):1P = PEEK (10): IF 1 
P = 2 THEN COL = 40 

IF COL = 40 THEN PRINT CHR$ (12); 
CHR$ (21): REM Désactive carte 
80 col. 

HOME : HTAB INT CCCOL - 9 - LP) / 2 
>: INVERSE : PRINT * FICHIER "FIi$: 
NORMAL : POKE 34,1 

NL = PEEK (8): PRINT : IF NL = 1 THE 
N PRINT “Insérez la disquette fic 
hier en D'NL: PRINT “puis appuyez 
sur ‘return’": GET 2$: PRINT 

PRINT D$"VERIFY"FI$" ,D°NL 

IF IP = 2 THEN PRINT ‘Imprimante pr 
ète ?7";: GET 2$: PRINT : PRINT D$" 
PR£1" 

PRINT : HOME : PRINT D$"OPEN"FI$",D" 
NL 

PRINT D$"READ'FI$ 

& INPUT À$: PRINT Â$: IF PEEK (37) 
< 22 OR IP = 2 THEN 210 

PRINT D$: INVERSE : PRINT "’RETURN’= 
CONTINUER OÙ ‘’ESC’=ARRETER: ";: NO 


POKE - 16368,0 

= PEEK © —- 16384): IF Z < 128 THEN 
240 

IF 2 = 155 THEN PRINT :F = 1:Y = 0: 
GOTO 60 

IF Z = 141 THEN PRINT : HOME : GOTO 
200 

GOTO 230 

POKE - 16368,0: IF NL = 1 THEN PRI 


NT "Insérez disquette programme en 
Di puis “3: IF COL = 40 THEN PRI 
NT 
PRINT *’RETURN’ pour revenir au menu 
"5: GET 2$: PRINT 
IF PEEK € - 16353) < 128 THEN PRIN 
T D$"PR£3": REM Si 80COL pas e 
n fonction, le commuter 
TEXT : PRINT D$"RUN MENU,D1" 


IDENT.APPLE 





02D4- 08 78 AD 00 
02D8- EO0 8D DO 02 AD 00 DO 8D 
02E0- Di 02 AD 00 D4 8D D2 02 
02E8- AD 00 D8 8D D3 02 AD 81 
02F0- CO AD 81 CO AD B3 FB C9 
02F8- 06 DO 49 AD 17 CO 30 3C 
0300- AD 13 CO 30 27 AD 16 CO 
0308- 30 22 A0 2A BE A2 03 B9 
0310- 00 00 96 00 99 A2 03 88 
0318- DO F2 4C 01 00 08 AO 2A 
0320- B9 A2 03 99 00 00 88 DO 
0328- F7 68 B0O 08 A9 80 8D CF 
0330- 03 4C 49 03 A9 40 8D CF 
0338- 03 4C 49 03 A9 20 8D CF 
0340- 03 4C 49 03 A9 00 8D CF 
0348- 03 AD 00 E0 CD DO 02 DO 
0350- 18 AD 00 DO CD Di 02 DO 
0358- 10 AD 00 D4 CD D2 02 DO 
0360- 08 AD 00 D8 CD D3 02 FO 
0368- 38 AD 88 CO AD 00 EO CD 
0370- DO 02 FO 0é AD 80 CO 4C 
0378- A1 03 AD 00 DO CD Di 02 
0380- FO 06 AD 80 CO 4C A1 03 
0388- AD 00 D4 CD D2 02 FO 06 
0390- AD 80 CO 4C Ai 03 AD 00 
0398- D8 CD D3 02 FO 03 AD 80 
03A0- CO 28 60 A9 EE 8D 05 CO 
03A8- 8D 03 CO 8D 00 08 AD 00 
0380- OC C9 EE DO 0E 0E 00 OC 
03B8- AD 00 08 CD 00 OC DO 03 
03C0- 38 BO 01 18 8D 04 CO 8D 
03C8- 02 CO 4C 1D 03 EA 00 39 
ROUTINES 

*300.39B 

0300- 68 AB 68 ñé DF 9A 48 98 
0308- 48 60 00 A9 03 A0 14 20 
0310- D9 03 60 00 01 60 02 00 
0318- 11 00 25 03 00 20 00 00 
0320- 01 00 FE 60 02 00 O1 EF 
0328- D8 00 38 48 84 FD AO 00 
0330- 91 FE Eé FE DO 02 Eé FF 
0338- 68 A4 FD 60 A9 A0 60 00 
0340- A9 4C 8D F5 03 A9 50 8D 
0348- Fé 03 A9 03 8D F7 03 60 
0350- C9 84 FO 03 4C 91 03 20 
0358- Bi 00 20 E3 DF 20 6C DD 
0360- 85 85 84 86 20 6F FD 8A 
0368- FO 1E BD FF 01 C9 83 FO 
0370- 1A BD FF 01 29 7F 9D FF 
0378- 01 CA DO F5 A9 00 A0 02 
0380- A2 8D 20 E9 E3 20 SA DA 
0388- A2 00 60 20 34 FF 4C DO 
0390- 03 20 84 FE 20 2D FF 4C 
0398- DO 03 FF 02 
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Voici un petit programme écrit en as- 
sembleur, d’une grande utilité, qui 
vous intéressera sans doute. Il per- 
met de rechercher dans un tableau 
de chaînes, les chaînes comportant 
un mot ou groupe de signes alpha- 
numériques particulier. La réponse 
est fournie ‘instantanément’. 


Programme de démons- 
tration 


— Il charge le sous programme en 
A machine RECHERCHE 


— Îl crée un tableau A$ de 500 
groupes de 5 lettres choisies aléatoi- 
rement, précédant les numéros d'’or- 
dre (ce tableau peut être plus impor- 


Recherche dans un tableau 


tant et occuper toute la mémoire 
disponible. Dans ce cas il serait bon 
d’adjoindre le FREE” rapide, pro- 
posé dans Pom's 2, afin d'accélérer 
le chargement du tableau). 


— Il demande l'expression à recher- 
cher. Cette expression peut être plus 
grande que les chaînes stockées et 
peut comporter des signes =” pour 
remplacer les lettres inconnues. 

— Il stocke à partir de l'adresse 
$9500 l'expression à rechercher. 

— Il stocke à l'adresse $OA la lon- 
gueur de l'expression à rechercher. 

— Il appelle la routine assembleur si- 
tuée en 768 ($300). Cette routine af- 
fiche alors toutes les chaînes conte- 
nant l'expression. 


Jean et Patrice Neveu 


— Pour une nouvelle demande ap- 
puyer sur une touche. 

— Pour sortir, appuyer sur RETURN 
lorsqu'une nouvelle expression est 
demandée. 


Le tableau A$ a été choisi arbitraire- 
ment. Si pour des raisons spécifi- 
ques, la recherche se faisait dans 
d'autres tableaux, il suffirait de 
POKEr les adresses $301 et $305 
pour initialiser le nom du tableau 
concerné (code ASCII de la première 
lettre en $301, code de la deuxième 
lettre + $80 en $305). 


La routine Recherche Text a été 
assemblée à l’aide de LISA 2.5. Les 
notes figurant sur le listing en expli- 
quent le déroulement. 








Programmme RECHERCHE DEMO Oo PS 
1 REM RECHERCHE DEMO 105 UTAB 15: HTAB 34: PRINT " /CR’ 
2 REM LE 1é AOÛT 1984 POUR 
3 HIMEM: 38144 
4 TEXT : POKE 33,40: HOME : INVERSE : HT ARRETER": POKE 33,33 
AB 14: PRINT "RECHERCHE DEMO": NOR | 110 HOME 
MAL : POKE 34,5 310 INPUT "EXPRESSION À RECHERCHER ? "A 
6 PRINT CHR& (4)"BLOAD RECHERCHE OBJ" $ 
10 PRINT : PRINT "PATIENTEZ QUELQUES INS | 315 IF A$ = "" THEN 400 
TANTS S.U.P,JE  CREE-500 CHAINES | 320 FOR I = 1 TO LEN (A#): POKE 38143 + 
Box, 1, ASC € MID (A$,1,1)3: NEXT 
100 DIM A$(500): FOR 1 = O0 TO 500: FOR J | 330 POKE 10, LEN (4%) 
= 1 TO S:A$ = A8 + CHRS (65 + R | 340 CALL 768 
ND (1) # 26): NEXT :A$(1) = À$ + " | 350 GET 2%: PRINT : GOTO 310 
"+ STR$ (I):XX = PEEK « - 1633 | 360 END 
: D'ELEMENTS DANS TABLEAU BAS 
Source Lisa 2.5 13 LGELEM  EPZ #10 ; LONGUE 
Programme RECHERCHE TEXT UR DE L’ELEMENT 
14 ADELEB  EPZ $1E ;ADRESS 
1 ; E DE DEBUT DE L'ELEMENT BAS 
2 ORG 3300 15 ADELEH  EPZ $1F ADRESS 
3 NOM! EPZ $é ;1ERE L E DU DEBUT DE L'ELEMENT HAUT 
ETTRE DE LA VARIABLE À RECHERCHER 1é CELEM  EPZ $CF ; COMPTE 
4 NOM2 EPZ #7 ;2EME L UR ELEMENT 
ETTRE DE LA VARIABLE À RECHERCHER 17 CLET EPZ $CE ; COMPTE 
5 ADTABB  EPZ #8 ;ADRESS UR DE LETTRE 
E BASSE DU TABLEAU 18 LGELMI  EPZ $ED 
6 ADTABH  EPZ 49 ;ADRESS 19 ADELBI EPZ $EE 
E HAUTE DU TABLEAU 20 ADELHI  EPZ $EF 
7 LONG EPZ $A ;LONGEU 21 INUFLG EPZ #32 
R DE LA CHAINE RECHERCHEE 22 COUT EQU $FDED :AFF1CH 
8 ARYTAB  EPZ $68 ; EMPLAC AGE DES LETTRES 
EMENT DE L'ADRESSE DU TABLEAU 23 CROUT EQU #FD8E ; RETURN 
? LTB EPZ #18 ; LONGUE 24 STOCK EQU $9500 ; CHAINE 
UR TABLEAU BAS A RECHERCHER STOCKEE EN $7500 
10 LTH EPZ #19 ; LONGUE 25 ; 
UR TABLEAU HAUT 26 ; 
11 NELEMH ‘ EPZ $EE NOMBRE 27 ; 
D'ELEMENTS DANS TABLEAU HAUT 28 ; 
12 NELEME EP2 #EC : NOMBRE 29 ;PROGRAMME DE RECHERCHE 
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30 ;POUR UN TABLEAU DE CHAINE À$ 103 ; 





31 AVEC SEULEMENT 1 DIMENSION 104 ;LONGUEUR DE L’ELEMENT 

32 : 105 ; 

33 LDA #$41 106 LONGE LDY ##0 

34 STA NOMI 107 LONGEL LDA CADTABB) ,Y 

35 LDA ##$80 108 STA LGELEM 

36 STA NOM2 109 ; 

37 ; 110 ;ADRESSE DEBUT DE L'ELEMENT 
38 ;ADRESSE DU DEBUT DES TABLEAUX 111 ; 

39 ; 112 INY 

40 LDA ARYTAE 113 LDA (CADTABE) ,Y 

41 STA ADTABE 114 STA ADELEB 

42 LDA ARYTAB+1 115 INY 

43 STA ADTABH 116 LDA (ADTABE) ,Y 

44 ; 117 STA ADELEH 

45 3;VERIFICATION DU NOM 118 ; 

46 ; 119 INY 

47 NOM LDX #0 120 LDA CADTABB) ,Y 

43 LDA CADTABB,X) 121 STA LGELMI 

49 CMP NOMI 122 ; 

50 BNE LGTAB 123 INY 

51 LDY #$1 124 LDA (ADTABB) ,Y 

52 LDA (ADTABB) ,Y 125 STA ADELEBI 

53 CMP NOM2 126 ; 

54 BEQ NBELEM 127 INY 

3S ÿ 128 LDA CADTABB) ,Y 

56 ;LONGUEUR DU TABLEAU 129 STA ADELHI 

57 3; 130 ; 

58 LGTAB INY 131 ;DEPLACE ADRESSE DEBUT ELEMENT 
57 LDA (ADTABB) ,Y 132 : 

60 STA LTE 133 CLC 

61 INY 134 LDA ADTABE 

62 LDA (ADTABE) ,Y 135 ADC #53 

63 STA LTH 136 STA ADTABE 

64 ; 1237 BCC CONTI 

65 ;CALCULE ADRESSE NOUVEAU TABLEAU 138 INC ADTABH 

éé ; 127 ; 

é7 ELC 140 ;LECTURE DES ELEMENTS 

68 LDA ADTABE 141 ; 

67 ADC LTE 142 CONTI EQU * 

70 STA ADTABB 143 ; 

71 LDA ADTAEH 144 ;VERIFIE SI L'ELEMENT EXISTE 
72 ADC LTH 145 ; 

73 STA ADTAEH 1d4é LDA LGELEM 

74 JMP NOM 147 BEQ ELEM 

75 ; 148 :; 

74 3;NOMBRE D’ELEMENTS DANS TABLEAU 149 ;RECHERCHE LA CHAINE STOCKEE EN 
77 3 150 ; $200 DANS LA CHAINE EN QUESTION 
78 MBELEM  LDY #$5 151 ; 

7 LDA (ADTABB) ,Y 152 LOY #$00 ; COMPTE 
ga STA NELEMH UR DANS LE MOT CIBLE 

ei INY 153 LDX #$#00 ; COMPTE 
82 LDA CADTABE) ,Y UR DANS LE MOT RECHERCHE 
83 STA NELEME 154 ; 

84 ; 155 COMP LDA STOCK,X 

85 ;ENLEUE 1 AU COMPTEUR CAR LA 156 CMP ‘= ; CARACT 
86 ;JUSQU'AU NUMERO 0... ERE GENERIQUE 

87 ; 157 BEQ BON 

8e CLC 158 CMP (ADELER) ,Y 

87 DEC NELEME 159 BNE PLULOIN 

90 BCC CONT 160 BON INX 

91 CLC 141 CPX LONG 

92 DEC NELEMH 142 BCS EDITI 

93 ; 163 INY 

94 CONT EQU »* 1464 CPY LGELEM 

95 ; 165 BCS ELEM 

96 ;DEPLACE L'ADPRESSE TABLEAU Sa JMP COMP 

97 ;AU DEBUT DES ELEMENTS 167 ; 

78e ; 148 PLULOIN  INY 

97 CLC 169 CPY LGELEM 

100 LDA ADTABE 170 BCS ELEM 

101 ADC #87 171 LOX #$00 

102 STA ADTABE 172 JMP COMP 


[e)] 
00 
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73 ; 195 LDY CLET 





174 ;STOCKE LE COMPTEUR DE LETTRES 176 INY 

175 ; 197 ; 

176 EDITI LDY ##00 198 {VERIFIE SI DERNIERE LETTRE 

177 EDIT STY CLET 199 ; 

178 ; 200 CPY LGELEM 

179 ;LIT LA LETTRE 201 BEQ ELEMI 

180 ; 202 JMP EDIT 

131 LDA (ADELER) ,Y 203 : 

182 ; 204 ;PASSE À L'’ELEMENT SUIVANT 

133 ;AJOUTE #20 AU CODE ASCII 205 : 

184 ;POUR EUITER LE FLASH 206 ELEMI JSR CROUT 

185 ; 207 ELEM LDA NELEMB 

136 CLC 208 BNE LGEL 

187 ADC #30 209 LDA NELEMH 

188 ; 210 BEQ FIN 

189 ;ENVOIE AU SOUS-PROGRAMME AFFICHAGE 211 DEC NELEMH 

170 ; 212 LGEL DEC NELEMB 

191 JSR COUT 213 JMP LONGE 

192 ; 214 FIN RTS 

173 ;INCREMENTE LE COMPTEUR DE LETTRE 215 END 

194 ; 
0328- 85 17 13 ÀS 03 55 18 85 0280- F0 3F 40 00 A2 00 ED 00 

RECHERCHE OBJ 0230- 08 AS 07 45 17 8S 09 4C 02338- 75 C9 30 F0 04 D1 1E DQ 
03383- 10 03 A0 S B1 03 85 EB 03?90- 00 E8 E4 OA RO 12 C8 C4 
0340- C3 P1 083 85 EC 18 Cé EC 03?73- 10 80 25 4C 34 03 C3 Ca 

#300.300 0543- 90 03 13 Cé EB 18 À5 03 0240- 10 89 1E 42 00 4C 86 03 
0350- 69 07 25 08 A0 00 E1 08 0348- A0 00 34 CE B1 1E 18 49 

0200- À7 41 85 06 À? 80 8S 07 0358- 85 10 C3 81 08 935 1E C8 02380- 80 20 ED FD Ag CE C8 C4 

0303- ÀS 5B 35 08 ÀS $C £S 07 0540- B1 08 2S 1F C3 B1 02 35 0382- 10 F0 03 4C AA 03 20 3E 

0310- A2 00 A1 03 CS 04 D0 93 03$3- ED C2 81 08 35 EE C3 B1 03C0- FD ÀS EC D0 04 AS EB F0 

0318- A0 01 B1 08 CS 07 FO 1 0370- 08 85 EF 13 AS 02 69 02 03C3- 07 Cs EB Cé EC 4C 54 03 

0320- C2 B1 08 85 12 C3 81 03 0373- 35 02 90 02 Eè 07 AS 10 0300- 40 
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Micro-Informations 


Jean-Michel Gourévitch 


L'Apple //e devient un Apple //c. 
Comme Pom's l'avait annoncé à ses 
lecteurs dans son numéro 16, le 
65C02 devient dorénavant le stan- 
dard de la famille Apple //. A partir 
du mois de mai, les nouveaux Apple 
/le vendus, intègreront le processeur 
65C02, qui équipait déjà le //c, et 
des ROMs supplémentaires (notam- 
ment un nouveau jeu de caractères 
comprenant les caractères souris et 
un moniteur assurant la gestion des 
fenêtres et du curseur). Un kit vendu 
moins de 1000 francs permettra aux 
possesseurs d'anciens //e de les met- 
tre à niveau. À première vue, il s’agit 
donc bien d’un abandon de ce qui 
était jusqu'alors le standard de l'Ap- 
ple //e. Devant le dilemne du pro- 
grès, la firme de Cupertino a dû 
abandonner un peu de terrain au 
chapitre de la compatibilité. 

Ainsi, les programmes qui tournaient 
difficilement (ou pas du tout) sur le 
/Ic ne tourneront, hélas, pas mieux 
sur le nouveau //e; aucun switch” 


Computer 3 


ne permet de sélectionner un mode 
ou l’autre. 


Toutefois, on précise chez Apple que 
les indéracinables du //e pourront 
laisser en place l’ancienne ROM de 
caractères, tout en changeant les 
autres, rien n'empêche de program- 
mer une ROM contenant les deux 
jeux de caractères qui seraient alors 
modifiables par logiciel. 


La seconde nouveauté concernant 
l'Apple //e était annoncée dans le nu- 
méro 17 de Pom's. Il s’agit du chan- 
gement du clavier. Le nouveau //e 
bénéficie donc d'un clavier compara- 
ble à celui du //c. Ainsi, lorsqu'on en- 
clenche la touche ‘’Majuscules”, on 
peut, comme sur une machine à 
écrire standard, taper directement les 
chiffres. Techniquement, le shift lock 
est remplacé par un caps lock. 

D'autre part, le nouveau clavier du 
/le n'est plus QWERTY. Sous le cla- 
vier de l’ancien //e, un interrupteur 
permettait d'obtenir à gauche, un 


clavier français aux touches AZERTY, 
et à droite, un clavier QWERTY. Cet 
interrupteur existe toujours sur le 
nouveau //e. Mais lorsqu'on le bas- 
cule vers la droite, on obtient seule- 
ment les caractères du genre ”[” ou 
”]”, impossibles à obtenir en français. 
Les amateurs de jeux américains 
dont les commandes sont disposées 
au clavier, selon un ordre pratique, 
apprécieront. 


Un exemple : 

Sur le simulateur Flight Simulator II, 
la touche ”<” permet de régler la 
valeur d’un instrument à la baisse, et 
>" d'augmenter la valeur. Sur le 
clavier américain, ces touches sont 
voisines. Sur un clavier AZERTY, il 
faut à chaque fois actionner la tou- 
che majuscule pour passer du ”<” 
au >”. 

Pourquoi donc ces modifications ? 
Parce qu’ Apple souhaite la standar- 
disation, et la firme de Cupertino 
voudrait encourager les auteurs de 
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logiciels à recourir à l'arsenal des 
menus déroulants, fenêtres, et icônes 
en vigueur sur le Macintosh. Les 
nouvelles ROMSs et le 65C02 permet- 
tront aux utilisateurs de booter 
depuis un disque dur, d'écrire des 
programmes Basic en minuscules et 
majuscules, d'utiliser un code plus 
serré, tout en utilisant les multiples 
fenêtres, et un meilleur contrôle du 
curseur. Reste à voir si cela sera suf- 
fisant pour dissuader les dévelop- 
peurs d'abandonner le //e pour le 
Mac. En attendant, les nouveaux 
programmes ne sont pas légions. 


Une vieille connaissance 


C'est l'AppleWriter // qui nous re- 
vient de loin. Fonctionnant sous 
ProDOS, il peut désormais bénéficier 
du disque dur. Il permet d'écrire un 
texte dans n'importe quel ordre, de 
le mémoriser par paragraphe et de 
l'imprimer dans l’ordre choisi. 

Grâce à un module de communica- 
tions, on peut recevoir des données 
d'une messagerie, ou d’un autre 
Apple, et les intégrer dans un texte. Il 
est distribué par Apple pour moins 
de 1800 francs. 


Toujours distribué par Apple, le 
ruban à trois couleurs superposables 
offre à l'imprimante Scribe, une im- 
pression en couleurs avec notam- 
ment les logiciels Dazzle Draw, Koala 
Pad, … Un ruban devrait suffire pour 
imprimer une dizaine de pages en 
mode graphique. Son prix est de 72 
francs. 


Devine quoi dîner 


Random Dining de Solitaire génère 
une série de menus (3 repas par jour 
pendant un maximum de 31 jours), 
et fournit la liste des ingrédients. Un 
seul petit problème : c’est au goût 
américain ! 

Un autre programme : The Ultimate 
Shopping Machine est fourni en 
prime et permet d'obtenir une liste 
imprimée des courses à effectuer au 
supermarché. Vous pouvez vous pro- 
curer l’ensemble pour 50 dollars. 


Un copieur conforme 


C'est la version 5.0 de Copy HN plus 
de Central Point. Un bitcopieur auto- 
matique capable de surmonter quel- 
ques systèmes de protection. Les pa- 
ramètres sont stockés sur le disque, il 
suffit de taper le nom du programme 
pour lui adapter les paramètres. 
Combien de temps faudra-t-il pour 
que les logiciels lui résistent et que 
Central Point sorte une nouvelle révi- 
sion de Copy Il plus ? Cette nouvelle 
version vaut 40 dollars. 


CP/M pour le //c 


C’est aujourd'hui possible grâce au 
Z80c d'Applied Engineering. Un mo- 
dule qui s’installe à l’intérieur d'un 
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ordinateur qu'on croyait pourtant 
fermé”. Il peut profiter des 128 Ko 
de l'ordinateur, ou n’en utiliser que 
64, en réservant le reste comme 
RAM disk. Il est livré avec la version 
4.0 de CP/M, le Z80c, coûte, outre 
Atlantique 160 dollars. 


De la mémoire 


Combien vous en faut-il ? Un mé- 
gaoctet vous suffirait-il ? Alors, la 
carte RamWorks d'Applied Enginee- 
ring est pour vous. Celle-ci sera no- 
tamment reconnue par Appleworks, 
Advanced Vlsicalc, FlashCalc, et bien 
d’autres. Elle accélère la vitesse 
d'exécution des programmes. Pour 
1200 dollars, on en attendait pas 
moins ! 


Un jeu de cartes. 


Trois cartes en une, qui dit mieux ? 
C'est la Business Card de Street 
Electronics. Elle regroupe deux inter- 
faces séries (pour disposer à la fois 
de l'imprimante et du modem), une 
carte horloge, et des possibilités de 
recopie automatique d'écran graphi- 
que. Elle est compatible avec Apple- 
Works, Apple Access// et surtout 
avec MousePaint (les spécialistes ap- 
précieront: c'est le programme le 
plus difficile à interfacer avec une im- 
primante), la Business Card coûte 
moins de 200 dollars. 


Un vrai clavier. 


Pas besoin d'acheter un nouvel 
Apple //e pour avoir le clavier vendu 
par Pentasonic. 78 touches dont un 
vrai pavé numérique, les majuscules 
et minuscules comme sur une ma- 
chine à écrire (la touche CAPS 
LOCK dispose du voyant LED qui 
fait tellement défaut sur l'IBM), les 
fonctions Pomme Ouverte et Fer- 
mée, et l’auto-test propres aux 
Apples : quel luxe ! Et en plus, il est 
inclinable pour un prix de 1273 
francs. 


Et le Mac ? 


Compatible avec l'Apple //, compati- 
ble avec l'IBM, accédant, grâce au 
menu pomme, au multi-tasking c’est 
vraiment la fête de Macintosh. 


Mac = Apple // 


Pendant que certains développeurs 
essaient de transformer l'Apple Il en 
Macintosh, David Hemmo a réussi à 
transformer le Mac en un Apple. Un 
Apple II+ pour le moment. Suppor- 
tant donc seulement 48 Ko de mé- 
moire et des programmes en DOS 
3.3. Grâce à David Hemmo, le pro- 
cesseur 68000 du Mac, émule le 
6502 de son cadet. Une prochaine 
version permettra de bénéficier du 
ProDOS et des caractéristiques (et 
surtout des programmes) du //e. Ima- 





ginez qu'on peut récupérer les dis- 
quettes du // sur les disquettes 3,5 
pouces du Mac. C’est assez simple : 
on charge le logiciel dans l'Apple II, 
on relie le Macintosh à l'Apple II par 
la sortie RS 232 (série) reliée à l’en- 
trée Modem du Mac, puis on trans- 
fère les programmes. Il ne reste plus 
qu'à les enregistrer sur une disquette 
de 3,5 pouces. Ensuite, on pourra 
jouer” ces logiciels sur le Macintosh. 
Il paraît que Steve Jobs avait juré 
que la chose était impossible. 


Mac = IBM 


Cette fois, c'est en IBM que le Mac 
se transforme grâce à Mac Charlie de 
Dayna Communications. Etonnant 
ce qui entre dans Macintosh ces 
temps-ci. Les logiciels IBM PC, par 
exemple” proclame, non sans hu- 
mour, la publicité de ce produit. 

En bref, il s’agit d’un complément 
hard” au Macintosh. Une base et 
surtout un prolongement de la partie 
droite de l'Apple, parfaitement dans 
le style et la couleur du Mac. La par- 
tie droite qui élargit le Macintosh 
d'un bon tiers contient les proces- 
seurs, 256 Ko de RAM extensibles à 
640, et un drive pour disquettes de 5 
pouces 1/4 (on peut rajouter un se- 
cond lecteur). Oui, diront les spécia- 
listes, tout ça est bien, mais l'IBM PC 
dispose d’un clavier bien spécifique, 
qui n’a rien à voir avec celui du Ma- 
cintosh. Vous n'avez encore rien en- 
tendu, car Mac Charlie contient aussi 
un clavier, dans lequel on emboîte 
celui du Mac. On dispose alors à 
gauche des touches de fonctions, et 
à droite d’un pavé numérique (égale- 
ment utilisable en mode Macintosh). 
C'est bien le moins, car Mac Charlie 
reviendrait à quelques 1895 dollars. 
Soit le prix aux Etats Unis d’un 
compatible bien équipé. Dommage 
qu'on n'ait pas encore pensé au gad- 
get transformant un IBM PC en Ma- 
cintosh. Chez Apple, qui a dû procé- 
der en février à un chômage 
technique pour cause de stocks trop 
importants, on apprécierait… 


Des programmes comme s’il en 
pleuvait 


Il est bien fini le temps où les logi- 
ciels pour Macintosh étaient aussi 
rares qu’un rayon de soleil, à Paris. 


À remarquer d’abord, le Switcher. 
Ce programme est développé par 
Apple et permet de faire tourner si- 
multanément jusqu’à quatre applica- 
tions sur un seul Macintosh 512 Ko. 
Comment ? Le logiciel partitionne la 
mémoire en quatre, on peut définir 
la mémoire nécessaire à chaque ap- 
plication. Ainsi, en se limitant à trois, 
il est possible d’avoir une application 
de 256 Ko, si elle requiert beaucoup 
de RAM. On choisit, au début de la 
séance, la mémoire utile à chaque 


= nl 


D MS RS 4 der E 
DCR UC PT TER CE ER PERS] 


EME 





71 





application puis on charge l’applica- 
tion en mémoire. 

Une double flèche s'installe alors 
dans le coin supérieur droit de 
l'écran. Un clic sur la flèche et on 
bascule sur l'application suivante. La 
version finale permettra de transférer 
le presse papier d’une application à 
l’autre. Le prix de ce programme ? Il 
devrait être gratuit, distribué avec les 
Macintosh comme le Finder, et offert 
aux possesseurs actuels. Ce pro- 
gramme exige 512 Ko. 


Aux Etats Unis, Centa System pro- 
pose la transformation d'un Mac 128 
Ko en 512 Ko pour 350 dollars. 
C'est environ trois fois moins cher 
qu'en France pour la greffe officielle 
de mémoire. Un scandale non ? . 


Mass Tech propose la même trans- 
formation pour 379 dollars. Mais, 
offre surtout une greffe portant la 
mémoire à 1 mégaoctet pour 995 
dollars. Un méga, de quoi rêver 
non ! Autant que le Lisa (pardon Ma- 
cintosh XL) mais avec la compatibi- 


lité en plus (actuellement, Macintosh 


XL n’est pas parfaitement compatible 
avec ses petits frères, et déforme no- 
tamment l’image de l'écran, en refu- 
sant d’absorber certains programmes 
en émulation avec MacWorks). Le 
Mac à un méga est déjà là, et ce 
n’est qu’un début... 


Deux traitements de textes 


Jusqu'à maintenant, les utilisateurs 
de Macintosh devaient se contenter 
de MacWrite. Un logiciel facile, per- 
mettant une vision exacte à l'écran 
de ce qui sera imprimé, mais limité, 
notamment par ses possibilités d’im- 
pression. Voici donc deux bonnes 
nouvelles. 


D'abord, la sortie aux Etats Unis (et 
bientôt chez nous) de la version 4.3 
de MacWrite. Elle permet d'imprimer 
sur un Mac 512 Ko quelques 250 
pages (à condition que ce document 
n'incorpore pas plus de 2047 passa- 
ges à la ligne par la touche Return, 
et qu'il y ait suffisamment de place 
sur la disquette pour l’accueillir). Le 
texte ne réside plus en mémoire, 
mais est chargé depuis la disquette 
au fur et à mesure des besoins. En 
plus des perfectionnements annoncés 
dans le numéro 17 de Pom's, le 
nouveau Macwrite offre la possibilité 
d'imprimer un document en le rédui- 
sant de 50%; et un nouvel accessoire 
de bureau permet de choisir son im- 
primante, adapté au réseau local Ap- 
pletalk et à l'imprimante Laserwriter. 


L'autre nouveauté, c’est la sortie offi- 

cielle de la version finale de Word de 

Microsoft. Un traitement de textes 

qui répondra aux besoins de tous les 

professionnels; on peut : 

e disposer simultanément d’un 
maximum de quatre fenêtres, 


contenant chacune un document 
e coller sans problème des mor- 

ceaux de textes entre documents. 
Il existe un glossaire, et la taille des 
d'‘cuments est illimitée. 
On peut aussi réaliser des notes de 
bas de pages, automatiquement nu- 
mérotées, ou écrire en colonnes. 
Toutes les commandes (même la 
taille des caractères) sont doublées 
par des séquences de touches au cla- 
vier. Les documents MacWrite sont 
utilisables dans Word. Ajoutons que 
le programme dispose en plus de la 
possibilité d'opérer fusions de lettres 
et mailings. Très très impressionnant. 
Un must pour les utilisateurs sérieux. 


Journaux électroniques 


I n'a pas fallu longtemps pour cons- 
tater que le Macintosh, particulière- 
ment dans son association avec l'im- 
primante Laserwriter. permettait de 
réaliser des journaux et lettres pério- 
diques sans problème. Dans le précé- 
dent numéro nous vous présentions 
MacPublisher. Voici encore Ready 
Set Go de Manhattan Graphics, basé 
sur une habile utilisation de Mac- 
draw. Très facile à utiliser pour 125 
dollars. 


Un Macintosh en couleurs ? 


Sur papier, seulement. Grâce au logi- 
ciel Color Print importé par BIP. Un 
jeu de trois rubans (rouge jaune et 
bleu) se substituent au ruban original 
de l'imprimante Imagewriter. La cou- 
leur à partir du Macintosh pour 710 
francs. 


Des pommes au menu 


A la différence de Lisa, en théorie, le 
Macintosh ne permet pas d'effectuer 
simultanément plusieurs tâches. Voici 
ce handicap partiellement surmonté. 
Grâce à des accessoires qui s'instal- 
lent dans le menu Pomme. Vous 
avez déjà, en standard, sur tous les 
logiciels l'heure, une calculatrice bien 
rudimentaire, l'album... Voici que de 
nouveaux accessoires peuvent s'y 
installer facilement. Comment ? 
Grâce au Desk Accessory Mover 
(DAM) qui permet de rajouter, d’en- 
lever, ou de débaptiser des accessoi- 
res aussi facilement que de changer 
un jeu de caractères avec le Font 
Mover. Ce DAM conçu par CE Soft- 
ware est vendu d’une façon inhabi- 
tuelle sous le système du Mac 
Honor. Les utilisateurs sont invités à 
en faire des copies pour leurs amis. 
Et ceux ci, s'ils souhaitent le conser- 
ver sont invités, à leur tour, à en- 
voyer au créateur la somme de 25 
dollars, ce qui donne droit aux per- 
fectionnements et aux documenta- 
tions. 


Que peut-on installer dans le menu 
Pomme ? CE propose trois outils 
bien utiles: le Mockwrite, un mini 





traitement de textes dont on peut 
disposer à tout moment (même sur 
le bureau) permet d'écrire un texte, 
de le sauver, de le retrouver. En 
outre, il possède même une fonction 
de recherche. 


Le MockTerminal, est un programme 
de communication. C’est peut-être le 
plus utile. Vous remplissez une fiche 
de CX MacBase, lorsque vous avez 
soudain besoin d’une information 
disponible sur votre banque de don- 
nées. Sans quitter le programme, 
vous cliquez sur MockTerminal dans 
le menu Pomme, vous appelez par le 
Modem la banque de données et 
vous recevez l'information. Un coup 
de copier-coller, et elle est incorporée 
à votre fiche. 


Mock Printer permet d'imprimer un 
document à n'importe quel moment, 
même sans disposer d’un traitement 
de textes. 


Un agenda permet de noter des ren- 
dez-vous. Une calculatrice scientifi- 
que ou financière peut remplacer 
avantageusement la calculette stan- 
dard. Pour les programmeurs, il 
existe une calculatrice hexadécimale. 
Un utilitaire permet de connaître en 
permanence la place encore disponi- 
ble sur un disque, ou dans la mé- 
moire centrale de Macintosh. Un 
"Executive Decision Maker” rem- 
place le pile ou face, pour vous don- 
ner un avis (hasardeux) sur une déci- 
sion à prendre. Une loupe permet 
d'agrandir un morceau de l'écran. 
Un accessoire enfin permet de pro- 
voquer l'éjection du (ou des) dis- 
que(s), et de provoquer un Reset par 
logiciel. 


Tous ces accessoires ont l'avantage 
de pouvoir être ‘’invoqués” tout en 
utilisant un programme, sans inter- 
rompre son exécution. Et ce n'est 
qu'un début. 


T/Maker Graphics propose ClickOn. 
Rien de moins qu’un mini-tableur et 
ses graphiques, cachés dans le menu 
Pomme. L'avantage est de pouvoir 
l'utiliser tout en écrivant un docu- 
ment avec MacWrite, et coller dans 
le texte le tableau et le graphique ob- 
tenu. Il en coûtera 80 dollars. 


Controle X pourrait commercialiser 
en France Art Grabber. Un acces- 
soire (toujours utilisé dans le menu 
Pomme) qui permet simplement 
d'ouvrir (et de retoucher) un docu- 
ment MacPaint, sans avoir à ouvrir 
MacPaint quel que soit le programme 
où on se trouve, et surtout, d'utiliser 
dans tous ces environnements les 
dessins tout faits de Click Art. 


Un seul pépin dans cette pomme : 
une fois gonflée” de tous ces acces- 
soires, le système de la disquette oc- 
cupe une place considérable (fré- 
quemment 300 Ko). La solution 
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consiste donc à travailler avec une 
disquette ne contenant que le sys- 
tème, et une autre contenant fichiers 
et applications. Ce n'est pas facile 
quand l'application est protégée. 
Quoi qu'il en soit, il vaut mieux dis- 
poser de 512 Ko et de deux lecteurs 
de disquettes. 


Les utilisateurs du Macintosh savent 
déjà que deux disquettes, c'est pour 
cet ordinateur un vrai minimum. 


Adresses 


Solitaire 746 West 113th Street 
Bloomington - Minnesota 55438 
Applied Engineering PO Box 798 
- Carrollton - Texas 75006 

Central Point Software 9700 S.W. 
Capitol Highway #100 Portland - 
OR 97219 


Street Electronics Corp. 1140 
Mark Av. Carpinteria CA. 
Pentasonic 34 rue de Turin 


75008 Paris - Tél : 293 41 33 
Dayna Communications 50 
S.Main - Salt Lake City Utah 84144 
Centa Systems 5308 Dery Av. 


Suite C Agoura Hills - CA 91301 
Mass Tech 451 Boston Road - Gro- 
ton - MA 01450 

JRD Orléans 11 place Ste Croix - 
45000 Orléans - Tél : (38) 54 83 30 
CE Software 801 73rd Street - Des 
Moines - Iowa 50312 

T/Maker Graphics 2115 Landings 
Drive Mountain View - CA 94043 
BIP 13 rue le Duc - 75018 Paris - 
Tél : 255 44 63 

Controle X Tour Maine Montpar- 
nasse - 33 avenue du Maine - 75755 
Paris Cedex 15 





Pour l’Apple // 


Techniques de programmation 
sur l’Apple II de René Belle, Edi- 
tions du PSI - 164 pages - 95 FF 

Ce livre démontre, à l’aide d’un 
exemple complet, l'illustration de la 
programmation structurée” en Basic 
Applesoft. Le découpage en chapi- 
tres est assez clair : généralités, saisie 
des données, édition, tri et recher- 
che. Un peu léger peut-être sur le 
contrôle de sécurité: une routine 
d'INPUT généralisé travaillant en 
GET aurait été intéressante. Dans 
l’ensemble, bon pour le fond et mau- 
vais pour la forme: ce n'est même 
pas du MacWrite, mais du traitement 
de textes sur Apple Il avec impri- 
mante matricielle. 


Apple Logo activities par Stephen 
Devwitt, Reston - Prentice Hall - 186 
pages - $22.05 

The Apple Logo workbook de 
M.J. Winter, Reston - Prentice Hall - 
230 pages - $16.85 

Deux livres pratiques sur le Logo 
auxquels le seul reproche que l’on 
puisse faire est qu'ils sont rédigés en 
anglais et font référence au Logo an- 
glais. Ceci dit, une simple table de 
correspondance permettra une trans- 
position rapide des exemples. 

Le premier s'articule principalement 
autour de questions posées à l’utilisa- 
teur en indiquant des références à 
des explications se situant dans d’au- 
tres pages. Le second, présenté en 
46 leçons bien programmées, alterne 
les explications et les exercices. Les 
deux livres sont intéressants, le se- 
cond étant un excellent guide pour 
un professeur souhaitant organiser 
des cours de Logo. 


Pour le Macintosh 


Connaissez-vous Macintosh de 
Pierre Courbier, ETSF - 143 pages - 
80 FF 

Le énième livre‘en français sur l’utili- 
sation du Macintosh, et qui ne ferait 
pas vingt pages s’il était composé et 


Pom's n° 18 


si l'on enlevait les copies d'écran... 
Encore une fois, aucune astuce d’uti- 
lisation. Mieux vaut assister à une 
bonne démo de 30 minutes sur le 
Macintosh. 


L'outil Macintosh de Gérard Léwy, 
Evrolles - 288 pages - 260 FF 

Il y a déjà là plus de contenu que 
dans les livres semblables au précé- 
dent. Mais, quand on ‘présente” 
plus de 30 logiciels, sans parler du 
Macintosh lui-même, en si peu de 
place, on est forcément superficiel. 
En outre, la présentation ballote 
complètement le lecteur: on passe 
d’un logiciel à l’autre sans indication 
claire de changement, il se dégage 
hélas une impression de fouillis. 


Macintosh, outils, progiciels, ap- 
plications de Xavier Gaucherand, 
Edimicro - 237 pages - 148 F. 

Un des meilleurs ouvrages dans le 
genre frelaté du livre d'initiation à 
Macintosh et à ses logiciels. Au 
moins, celui-là est composé. car 
même si MacWrite est un pro- 
gramme sympathique et l’ImageWri- 
ter une imprimante de qualité, un 
lecteur objectif peut difficilement 
trouver plaisant à lire un ouvrage ré- 
digé en MacWrite. Signalons un ef- 
fort de classement et un souci péda- 
gogique rare dans la logorrhée 
ambiante du Macintosh. 


Découverte et pratique de CX 
MacBase par Hervé Thiriez, Editions 
Controle X - 170 pages - 125 FF. 
Disquette d'accompagnement : 175 
FF. 


À la fois un excellent quide pédago- 
gique sur l’utilisation de CX MacBase 
et un recueil d'applications avec de 
nombreux tableaux expliqués dans le 
livre et prêts à l'emploi sur la dis- 


Bibliographie 


Alexandre Duback 


quette d'accompagnement. Les 
divers exemples illustrent les nom- 
breuses possibilités du programme. 
Le livre fait référence aux versions 
M10 et M20 du programme. 

La disquette comporte une version 
bridée du programme, interdisant 
l'impression ou la création de nou- 
velles fiches, mais permettant de 
mettre en oeuvre tout le reste du 
programme : un moyen économique 
de tester CX MacBase avant l'achat. 
À noter tout particulièrement : UniFi- 
che, un modèle menant à des utilisa- 
tions multiples. 


La communication 


Le guide marabout de la téléma- 
tique de Michel Poullet - 221 pages. 
Un ouvrage clair, mais uniquement 
destiné à ceux qui souhaitent enrichir 
leur culture générale. Certains sujets, 
tels que la monnaie électronique ou 
la bureautique, n'intéressent directe- 
ment ni l’'Appleomane, ni le fana de 
la micro. De plus, on n’y trouve rien 
de spécifique à l'Apple. 
La télé-informatique personnelle 
de Jacques Bessières, Hachette Infor- 
matique - 217 pages - 145 FF. 
Voici un excellent livre sur la 
communication. En outre, comme 
l'indique le sous-titre, il s'intéresse 
aux ‘Applications aux ordinateurs 
Apple”. Clair et plein d'informations, 
cet ouvrage couvre les aspects hard 
et soft ainsi que les services. Il pré- 
sente de multiples recettes d'utilisa- 
tion. Même le célèbre Roland Mo- 
reno nous dit que c’est, pour ses 
collaborateurs, un ouvrage de réfé- 
rence. C’est tout dire. Un must 
pour les branchés. 
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Accès direct aux disquettes 
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Initiation à l'Assemblieur (7) A 
Transfert rapide de tableaux B 
Les pointeurs en Pascal LCSD P 
Animatlons graphiques B-A 
Visualisation d'une distribution normale B 
Copie d'écran sur imprimante Epson A 
Catalogue sur imprimante B 
BSAVE et BLOAD avec 

Je Basic Microsoft B 
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Mini-éditeur Basic B-A 
Transformez votre //e en1l+ A 
Conversion chiffres-lettres B 


Assembleur) - B(asic) - P(ascal) - (B/A) 
relatif au Basic ou à l'Assembleur 

Les articles dont les titres sont en italiques, 
concernent le Macintosh. 
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Courrier des lecteurs 


Je dispose d'un Apple //e muni d’un 
lecteur de disquettes, d'une carte 
Chat Mauve et d'une carte ‘souris’! 
Le programme "Disque Virtuel 16K", 
publié dans Pom's 12, fonctionne 
très bien, mais rien ne va plus avec 
le ‘Disque Virtuel 64K”, paru dans 
Pom's 14. L'auteur parle de carte 80 
colonnes étendue, sans préciser la- 
quelle. La carte Chat Mauve serait- 
elle incompatible ? 

D'autre part, une petite suggestion 
pour les forts en assembleur; est-il 
possible de réaliser un patch du pro- 
gramme COPY du DOS 3.3 qui per- 
mette de faire une copie de disquette 
en une seule passe ou deux (avec un 
seul lecteur de disquettes et une 
carte 64K). Ce n'est pas évident, 
mais je ne m'adresse pas à n'importe 
qui, que diable ! 

Régis Ringenbach - 30 Villa Chaptal 
- 92300 Levallois 


En effet, le ‘Disque Virtuel 64K” 
pose un problème, il ne protège que 
la première moitié de la page texte 
de la mémoire auxiliaire (pages 4-5, 
les pages 6-7 étant oubliées). Par 
conséquent, il faut apporter des mo- 
difications au programme pour son 
bon déroulement. 


Patch de AUTO RWAUXINIT.OBJ : 


BLOAD AUTO RWAUXINIT.OBJ 
4F47: OC 

4FCB: 6C 

5065: 10 07 06 00 01 04 05:06 07 
5094: 65 

5S0AD: 05 

SOAF: 68 

BSAVE AUTO RWAUXINIT.OBJ 


Ces modifications ont été précisées 
dans Pom's 16 (p. 66). Il est à noter 
que le "Disque Virtuel 64K” ne fait, 
en réalité, que 50.5K (4K pour la 
piste du catalogue et 46.5K pour les 
données). 

En ce qui concerne la page graphi- 
que haute résolution de la mémoire 
auxiliaire, elle est correctement proté- 
gée par le disque virtuel (inhibation 
des pistes 6 et 7). En revanche, ce 
disque virtuel est incompatible avec 
le programme PURPLESOFT de la 
carte EVE car ils utilisent tous les 
deux l'équivalent carte langage de la 
mémoire auxiliaire (adresses $D000 
à $FFFF). Il serait possible de pat- 
cher le disque virtuel de la même 
façon que ci-dessus pour inhiber les 
pistes correspondantes ($11, 12 et 
13) si la piste du catalogue ($11) 
n'était précisément à cet endroir-là 
($D000 à $E000 plus exactement), 
ce qui oblige à remanier le disque 
virtuel. 


Olivier Herz 


Je ne pense pas qu'il suffise d'un 
simple patch pour que COPYA utilise 
les 64K de la mémoire auxiliaire et 
fasse une copie en 2 passes. C'est 
faisable, mais il s’agit d’un gros tra- 
vail, voire même d’une refonte du 
programme. En revanche, il existe 
des programmes de copie qui en 
tiennent compte actuellement, 
comme Locksmith 5.0. 





Le programme Gesmask Modifie, pu- 
blié dans Pom's 14, m'a intéressé. 
Malheureusement, j'ai été obligé de 
changer quelque peu HCTOBJ, 
pour obtenir une copie d'écran cor- 
recte. J'ai une OKI 82A avec ‘Uni- 
versal parallel printer interface 
PRX12 (E.E.PI) et j'avais les problè- 
mes suivants : 

l-je n'obtenais qu'une ligne d'écran 
sur quatre; 

2-les deux dernières lignes écran qui, 
par un appel à $FDED, généraient 
un ‘plantage sans fin” 

La solution que je propose, n'est pas 
très élégante (scrolling des deux der- 
nières lignes) mais à l'avantage de 
fonctionner. Ci-dessous, le listing de 
la routine HCT.OBJ modifiée. 


?4465- AS 00 LDA £s00 


7467- 85 25 STA #25 
9469-— A0 00 LOY £s00 
?746B- 20 C1 FB JSR sF8ci 
?4aéE- B1 28 LDA (s28),Y 
9470- c? 40 CMP £#40 
9472- 80 00 BCs 57481 
9474- C9 20 CHP £520 
?476- B0 0é Bcs $947E 
9478- 18 CLC 

9479- 69 Co ADC £sCco 
9478- 4c 81 94 JMP 57481 
947E- 18 CLC 

947F- 69 80 ADC £580 
7481- 20 ED FD JSR $FDED 
?484- cs INY 

9485- co 28 CPY £528 
9487- D0 ES BNE $9746E 
9489- A9 8D LDA £$80 
?48B- 20 ED FD JSR #FDED 
948E- Cé 25 DEC 525 
9490- AS 25 LDA #25 
9492- C9 14 CMP £sié 
?7494- 00 03 ENE 74469 
?49é- A0 55 LDY £s5S 
?7478- C4 CE CPY CE 
?47A- FO 0F BEQ 57448 


?4a9C- 20 70 FC JSR sFc70 


949F- 20 70 FC JSR +Fc70 
?9442- A9 14 LDA £$14 
?4A4- A0 55 LDY £sSS 
?4Aé- 84 CE STY $CE 
7448- 4C 67 94 JMP 59467 
F44B- A9 00 LDA £s00 
744D- 8s CE STA sCcE 
F4AF- 60 RTS 


Olivier Fages - 61 rue Victor Hugo - 
94700 Maison Alfort. 


N'ayant pas ce matériel, il nous a été 
impossible de tester les modifications 
que vous apportez à la routine. 


L'article STARTUP et saisie de la 
date en Pascal, publié dans Pom's 








16, m'a inspiré et je vous propose 
d'obtenir le même résultat par une 
méthode beaucoup plus simple. 


1-Créer un fichier EXEC appelé 
DATEUR : 

Depuis le niveau global taper <M> 
pour Make Exec File, le système 
vous demande NEW EXEC NAME? 
Il faut répondre DATEUR <RTN>. 
Puis le système demande TERMINA- 
TOR =%, CHANGE IT: en répon- 
dant N, on retourne au niveau glo- 
bal Tout ce qui est tapé sera 
enregistré dans le fichier EXEC. En- 
suite, taper F (Filer) et D (Date) et 
deux fois % pour terminer. Le fichier 
EXEC est alors enregistré. 


2—Créer un programme appelé 
STARTUP : 

PROGRAM STARTUP: 

USES CHAINSTUFF: 

BEGIN 

SET (’EXEC/DATEUR '); 

END. 


Le fichier EXEC et le code du pro- 
gramme STARTUP doivent se trou- 
ver sur la disquette APPLEO ou 
APPLE sous les noms respectifs de 
DATEUR et SYSTEM.STARTUP. A 
chaque boot, le programme SYS- 
TEM.STARTUP sera exécuté et lan- 
cera les commandes contenues dans 
le fichier EXEC. Ainsi, il suffit de ren- 
trer la date. 


Jean Philip - Chemin St Roch - 
84490 St Saturnin d'Apt 


Cette méthode ne peut fonctionner 
qu'avec la version 1.1 du Pascal 
UCSD. En effet, les fichiers EXEC ne 
sont disponibles que sur cette ver- 
sion. 





Il m'est impossible de faire fonction- 
ner le programme ‘Gérer la date 
ProDOS”, paru dans Pom's 16. Mon 
ordinateur me répond toujours NO 
BUFFERS AVAILABLE. 


Monsieur Rambaud - 11 rue E Roux 
- 15000 Aurillac 


Il y a effectivement un problème 
avec le programme de DATE en 
ProDOS. En effet, si on fait, après 
avoir transféré DATE sur une dis- 
quette ProDOS, un CATALOG de 
cette disquette, on voit que le SUB- 
TYPE du fichier DATE correspond à 
une adresse de chargement A$0000. 
Or, ProDOS refuse de charger un fi- 
chier en page 0 et emet donc un NO 
BUFFERS AVAILABLE après l'essai 
d'un —-DATE. 

La solution est de remplacer dans le 
programme Applesoft (STARTUP par 
exemple) l'instruction - PRINT 
CHR$(4)'-DATE” par PRINT 
CHR$(4)""BRUN DATE,A$300" 





Convertir des programmes DOS 3.3 
en ProDOS avec les programmes ac- 


compagnant le Pom's 16 pose quel- 
ques problèmes. En effet, le pro- 
gramme me répond que je ne suis 
pas sous ProDOS. 


Monsieur Blin - 37 rue Gue d'Orient 
- 95470 St Witz 


Afin de résoudre le problème, il faut 
modifier le début de la ligne 117 du 
programme Basic CQFD. Celle-ci de- 
vient : 

117 IF PEEK (48961) <> 67 
THEN... 


C'est le c du copyright Apple dans la 
page globale ProDOS ($BF00 — 
$BFFF) 





Je possède une imprimante Epson 
avec une interface Shinshu Seiki Co. 
Ltd. dont je suis tout à fait satisfait. 
Malheureusement, cette imprimante 
se refuse à imprimer correctement les 
menus des disquettes Pom's. C'est 
un problème soulevé par plusieurs 
lecteurs et auquel vous avez donné 
une réponse dans le numéro 15 en 
conseillant d'envoyer vers l'impri- 
mante le code permettant de suppri- 
mer l'affichage sur l'écran. Malheu- 
reusement, je n'ai pas trouvé dans la 
notice de l'interface le code en ques- 
tion. 

Aussi me suis-je attaqué au problème 
à sa source. Le saut des lignes vient 
du fait que lorsque le 40ème carac- 
tère est affiché, il se produit un re- 
tour ligne automatique sur l'écran. Il 
est suivi d'un deuxième retour ligne 
envoyé par le programme. Ce der- 
nier passant ensuite à la ligne sui- 
vante se retrouve en fait sur la qua- 
trième ! Pour passer à la ligne 
suivante, il faudrait donc que le pro- 
gramme revienne d'une ligne en ar- 
rière, dans le cas où l'interface affi- 
che sur l'écran. Comme il n’est pas 
question d’avoir deux versions du 
programme, j'ai modifié le pro- 
gramme HCT.OBJ pour que le nu- 
méro de la ligne suivante ne soit plus 
calculé à partir du numéro de ligne 
fourni par le moniteur mais d'après 
un numéro tenu dans le programme. 
Et tout rentre dans l'ordre. J'ai égale- 
ment modifié l'instruction 70 du pro- 
gramme Basic MENU pour la déba- 
rasser de tout ce qui était devenu 
superflu. 

Je n'ai pu faire le test qu'avec l'inter- 
face dont je dispose. Il faudrait véri- 
fier que tout se passe bien avec un 
interface qui n'affiche pas en même 
temps sur l'écran. 


HCT.OBJ modifié 


*9485.9496 


9465- 20 8E FD 
9468- A9 00 85 25 85 96 20 C1 
9470— FB AD O0 EB1 28 C9 40 Bo 





9478- OA C9 20 BO 04 49 CO DO 
9480- 02 49 80 20 ED FD C8 Cd 
9488- 28 DO E8 20 8E FD E6 96 
9490- ÀS 96 C9 18 DO D4 480 

* 


Ligne 70 modifiée : 


70 VTAB 1: PRINT D1$’PR#” S: 
CALL 37989 : PRINT D1$"PR#0” 


C. Leyo - 32 allée de la meute - 
78110 Le Vésinet 


Suite à ma lettre, publiée dans Pom's 
12, concernant les incompatibilités 
que je constatais, sous Pascal ucsd, 
entre la carte interface Epson et la 
carte Eve Chat Mauve, j'ai le plaisir 
de vous annoncer que j'ai enfin 
trouvé la solution de ce problème. 

Il s'agissait d'interférences entre les 
deux cartes à travers les circuits de la 
carte mère. On élimine ces interfé- 
rences en soudant un condensateur 
céramique de 220 picofarads 50V 
non polarisé (0.9 Frs) entre les bro- 
ches 3 et 7 de la puce 6A sur la 
carte interface Epson; on dispose 
alors à nouveau de l'intégralité des 
fonctions des deux cartes. Cette solu- 
tion a été trouvé, dans le courrier des 
lecteurs (octobre 84) de Call Apple, 
par un lecteur assidu de Pom's (M. 
Koenig). 

Jean-Pierre Januel - 5 rue Duperré - 
75009 Paris. 





J'ai acquis, il y a quelques mois, la 
souris Apple Mouse Il et son inter- 
face pour mon Apple II+. Program- 
mant assez souvent en Pascal, j'ai 
donc voulu l'intégrer à mes program- 
mes par le biais de menus à la Ma- 
cintosh. Une première série de Units 
à vu le jour et m'a donné satisfac- 
tion, dans un premier temps. Dans 
un premier temps seulement, car la 
souris peut fonctionner en deux 
modes. En mode passif, le plus sim- 
ple, qui oblige donc le programme 
utilisateur à l’interroger régulièrement 
pour détecter les éventuels mouve- 
ments et déplacer le curseur en 
conséquence. C'est sur ce principe 
que mes premières réalisations ont 
été faites. Cela fonctionne très bien, 
mais si l'intervalle qui sépare les in- 
terrogations est trop long (à cause 
des traitements qu'effectue le pro- 
gramme) le mouvement du curseur 
est saccadé. 

La solution est d'utiliser le deuxième 
mode de fonctionnement, à savoir le 
mode mettant en jeu les interrup- 
tions. Pour ceux qui ne connaissent 
pas le problème, je précise rapide- 
ment que l'interface de la souris en- 
voie alors au 6502 un signal d'inter- 
ruption lorsque la position de celle-ci 
a changé, ou lorsque le bouton a été 
appuyé (ou les deux). Il suffit de 
mettre en place une routine de prise 
en charge de cette interruption, dont 
le rôle sera de lire les coordonnées 
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de la souris et de déplacer le curseur 
en conséquence. L'avantage immé- 
diat est que, quelle que soit la lon- 
gueur des traitements du programme 
utilisateur, le curseur suivra toujours 
régulièrement les interruptions dans 
ce système. 


J'ai expérimenté ce mode de fonc- 
tionnement, avec succès, sous DOS 
3.3 et j'ai décidé de l'appliquer en 
Pascal. C'est là que les choses se 
corsent, car je ne sais pas, de façon 
précise, comment on peut gérer les 
interruptions dans ce système. Je 
lance donc un appel auprès des lec- 
teurs qui auraient des renseigne- 
ments à me fournir, quitte ensuite à 
centraliser tous les éléments qui 
m'auront été communiqués pour en 
faire un article synthétique si le sujet 
intéresse d'autres lecteurs. Les don- 
nées qui me manquent sont, entre 
autres : 

1-l'adresse du vecteur d'interruption 
(il semblerait que ça se passe ailleurs 
qu’en $FFFE — $FFFF). 

2-Les précautions à prendre (doit on 
Sauvegarder des informations particu- 
lières autres que les registres géné- 
raux). 

3-et tout ce à quoi je ne pense pas 
ici, Mais qui a son importance dans 
la manipulation. 

Merci d'avance à tous ceux qui se 
pencheront sur le problème. Pour les 
autres (qui manqueraient d'informa- 
tions mais que le problème intéresse) 
j'ai l'intention, si le courage ne m'a 
pas quitté d'ici là, d'envoyer à notre 
revue préférée le résultat de mes co- 
gitations et nuits blanches. 


Eric Pascual - 29 rue Foucher Lepel- 
letier - 92130 Issy Les Moulineaux. 





Le programme de Startup avec saisie 
de date, publié dans Pom's 16, est 
fort intéressant. Toutefois, un pro- 
blème se pose avec la version 1.2 du 
Pascal UCSD car l'adresse de la date 
n'est pas la même que dans les ver- 
sions précédentes. J'ai trouvé qu'elle 
était égale à -21252, et indique aux 
lecteurs intéressés la démarche à sui- 
vre pour arriver à ce résultat. 

D'après la déclaration du type DATE, 
une telle variable occupe deux cases 
mémoire ADDR et ADDR+1 rem- 
plies comme suit : 


Année (7 bits), jour (5 bits), mois (4 
bits). 

Ainsi, pour la date du ler janvier 
1985, les 16 bits de ADDR et 
ADDR+ 1 seront : 
0000001000010001 soit la valeur 2 
dans ADDR+ 1 et la valeur 17 dans 
ADDR. 


Il suffit d'enregistrer cette date grâce 
à la commande D(ate) du F{iler) puis 
de chercher deux adresses consécuti- 
ves contenant les valeurs 17 et 2 Il 
est inutile d'explorer les 64K de 
RAM, la date se trouvant aux alen- 





tours de -2000 à -2500, dans les 
autres versions. 


Christian Bellot - 21 bd Dahdah - 
13004 Marseille 


Je possède un Apple //e et la carte 
Chat Mauve et désire utiliser le pro- 
gramme Visicalc dans les meilleures 
conditions. Or aujourd'hui, j'obtiens 
un écran où les colonnes paires (mé- 
moire auxiliaire) restent noires. Que 
dois-je faire pour résoudre ce pro- 
blème ? 


Dominique Dubois - BP 410 - 210 
Antsiranana - Madagascar 





La version de Visicalc que je possède 
date de plusieurs années et est donc 
incapable de reconnaître et d'utiliser 
la carte 80 colonnes de l'Apple //e. 
Si l’on boote sur Visicalc à l’allu- 
mage, il fonctionnera en 40 colon- 
nes. Si l’on fait PR#3, puis PR#6 
pour booter Visicalc, il y aura un affi- 
chage des 40 colonnes de Visicalc 
sur un écran de 80 colonnes, donc 
une colonne sur deux. Je ne sais pas 
si les version récentes de Visicalc 
sont adaptées au //e. 

En revanche, les nouveaux tableurs 
(Magicalc, Appleworks, Multiplan, Vi- 
sicalc advanved version.) connais- 
sent le //e et fonctionnent en 80 co- 
lonnes. 





Je me pose de nombreuses questions 
et je vous serais reconnaissant de 
bien vouloir me répondre : 

1-Est-il possible de rendre compatible 
Magic Window à la police de caractè- 
res offerte par l’Epson ? Celle-ci étant 
composée de “ESC” ou de 
"CHR$(27) +..." alors que Magic 
Window permet seulement les 
"CTRL:.:" 

2-L'assembleur Big Mac est allergi- 
que au ‘OBJ”} pourriez-vous expli- 
quer le rôle et l'utilité de “OBJ" (je 
commence à peine et c'est dur, 
dur...) 

3-Y a-t-il dans Big Mac une 
commande remplaçant le “EPZ" du 
Lisa; à moins que Big Mac fasse la 
distinction suivant le "Badresse étre 
4-Dans tous les listings que j'ai pu 
lire, il n'y à pas une seule routine de 
revectorisation de l’ampersand (&) 
qui soit semblable. N'existe-t-il pas 
une routine standard ? 


Pascal Bordais - BP 45 - 94350 Vil- 
liers sur Marne 


1-N'ayant pas d'Epson, il m'est diffi- 
cile de vous répondre. Toutefois, je 
vous propose de faire un essai sa- 
chant que “ESC” n'est autre que 
"CTRL + [”. 

2-Sur Lisa 2.5, le code ‘’OBJ” indi- 
que l'adresse de début du pro- 
gramme objet qu'il faut sauver après 
assemblage par un BSAVE, soit au 
clavier, soit dans une commande 
DCM dans le fichier source. Ce code 


n'existe pas sur Big Mac, qui met 
d'autorité le programme objet en 
$8000 et permet de le sauver par le 
biais de la commande ”’O” du menu. 
Cette commande inscrit sur la dis- 
quette la vraie valeur du début du 
programme (donnée par ORG), et 
non $8000 comme le ferait un 
BSAVE. 

3-Vous avez vous-même répondu à 
la question; Big Mac fait la distinction 
suivant l'adresse. En cela, il est plus 
intelligent que Lisa, celui-ci ayant be- 
soin d’un EPZ pour la page zéro. 

4-Il n'existe pas de routine standard 
de revectorisation de l’ampersand 
(&).Pour les commandes d'une seule 
lettre, je vous renvoie à ’’Amper 
Jump & TSORT” paru dans Nibble 
Express (volume 2). 


En mode texte 80 colonnes des phé- 
nomènes étranges se produisent avec 
la routine de "La programmation fa- 
cilitée”’ (Pom's 5). 

& LET donne une barre inverse ha- 
churée, 

& INPUT Af,Lx ne positionne pas le 
curseur en début de ligne de pointillé 
mais sur la ligne au-dessous et à une 
distance du bord droit de la fenêtre 
égale à la longueur spécifiée pour le 
pointillé. 

Grâce aux articles d'initiation à l’as- 
sembleur, j'ai pu remédier à ces pro- 
blèmes. 

Pour l'option LET : il faut tester le 
mode d'affichage; si l’on est en 80 
colonnes alors on divise par deux les 
adresses $6 et $7 qui sont respecti- 
vement la marge et la longueur + 
marge. Ainsi, en 80 colonnes la rou- 
tine est de nouveau exécutée après 
commutation des pages textes de la 
carte 80 colonnes. 

Pour l'option INPUT : le saut à la 
sous routine du moniteur (JSR 
$FC10) est modifié pour aller en 
$9594 où l'on teste le mode d'affi- 
chage. Si le mode 80 colonnes est 
enclenché, le saut à $FC10 est rem- 
placé par un saut $CBDB (routine 
du moniteur pour la carte 80 colon- 
nes). 


Marche à suivre : 


CALL-151 

BLOAD PROG48K 

93C9: 20 94 95 

9550: taper la récapitulation ci-après 
BSAVE PROG48K,A$9300,L$2A2 


9550- AD 18 CO OA 90 05 46 06 
9558- 46 07 18 A4 06 C4 07 DO 
9560- 06 AD 96 94 91 28 60 Bi 
9568- 28 09 80 25 32 91 28 AD 
9570- 18 CO OÀ 90 0E 8D 55 CO 
9578- B1 28 09 80 25 32 91 28 
9580- 8D 54 CO C8 C4 07 90 DF 
9588- AD 18 CO OA 90 04 06 06 
9590- 06 07 38 60 AD 18 CO 0A 
9598- 90 04 20 DB CB 60 20 10 
95A0- FC 60 


Frédéric Ivsic - 203 bis ave Napoléon 
Bonaparte - 92500 Rueil Malmaison 
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DISQUETTES (sauf précision, toutes les disquettes fonctionnent sous DOS 3.3 sur Apple II + , //e ou //c) 












































HAIFA ……….………… (cf. Pom's n°5) à  55,00F 
H-BASIC ................. a tu rrranaa es (CR POMSIMEB) . His à 150,00 F 
MUSIC ......................................... (cf. Pom's n° 10) à 80,00 F 
DISK-MANAGER ...................…. (cf Pomsn 11) à 450,00F 
DBSTAG (CP/M) .…..................... (ct Pomsn1lllr sisi à 450,00 F 
JEUX A eMail an es (cf. Pom's n° 12) à 80,00 F 
JEUX B ....….. ee en (cf. Pom's n°12) à 80,00 F 
BASICIUM ..................................... (cf. Pom's n° 13) à 15000F 
ER Re a eess (cf. Pom's n° 15)... à 150,00 F 
DEMO MAX THE GOLBE TROTTER (cf. Pom's 17)... à 55.00 F 
MAX (moniteur étendu) ..…................…. (Cf. ce numéro) à 150,00 F 
MACINTOSH N°° 14-15-16 . tin à 150,00 F 
MACINTOSHN 17... dis icdetéeceine diststdtoiioioute à 80,00 F 
MACINTOSH N° 18... à 80,00 F 
PASGAL 55 5 inde. (cf. Pom's n° 15)... à 80,00 F 
« | RECUEILS 
Fa N° 1, recueil des revues 1à4 à 140,00 F 
# Disquettes d'accompagnement des numéros 1 à 4... à 150,00F 
de N° 2, recueil des revues 5 à8 à 140,00 F 
2 Disquettes d'accompagnement des numéros 5 à 8 à 190,00 F 
# ANCIENS NUMEROS 
Ë REVUES SR DRASS à 35,00F 
> REVUES QO 9 no Qu O1 D13 
[ |] 14 15 F6 COOL. ASS à  4000F 
DISQUETTES | 1 2 13 [J 4 [)5 
[ 6 |] % [ 8 [] 9 10 
[]11 112 []13 []14 []15 RE 55.00 F 
[116 [117 [18 
ABONNEMENTS 
POUR 6 NUMEROS à partir dun 
ABONNEMENT SANS DISQUETTES ………… à 200,00 F 
ABONNEMENT AVEC DISQUETTES (Apple II + , //e, //c) à 480.00 F 


TOTAL TTC 
Supplément expédition 
par avion à l'étranger 


MONTANT 
DU REGLEMENT 


Ces tarifs comprennent l’envoi postal en France métropolitaine. CEE et Suisse 
Supplément avion hors CEE : 15 F par numéro et/ou disquette 





Envoyez ce bon et votre réglement à (Abonnés : n'oubliez pas de joindre l’étiquette-adresse). 


Editions MEV - 64-70, rue des Chantiers - 78000 VERSAILLES 





Nom 
Adresse 
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Le nouveau 
LASER 3000 


avec lecteur de disquettes à : 





6502 A / 2 Mhz + en option Z80A disponible. 
Dos 33 po CPM. 

32 K ROM. 

64K extensible à 192 K RAM. 


24 lignes. 
Carte 40 et 80 colonnes incorporées. 
280 X 192 et 560 x 192 points. 


Carte couleur incorporée. 


ne 
81 touches ergonomiques, antifatigue. 

Qwerty et Azerty au choix, avec pavé numérique 
+ 24 touches de fonction. 

4 canaux / 6 octaves. 


Centronics parallèle + en option RS 232 disponible. 


+ manuel technique en français + câble... 


evaw 





e TTC 


)ES MILLIERS DE LOGICIELS AU BOI 

DES DOICTS 
Polyvalent grâce à ses différents microprocesseurs 6502 A 
et Z80, le LASER 3000 offre le plaisir d’utiliser les meil- 
leurs logiciels de langages, de gestion, d'organisation, de 
calculs scientifiques, de musique, soit des milliers de pro- 
grammes : — PRACTICALC, 

— MULTIPLAN, 

- SAARI, 

— ZAXXON... 


ENCORE UNE RÉALISATION 


TECH 


VIDEO TECHNOLOGIE FRANCE 
19, rue Luisant - 91310 Montihéry 
Tél. (6901.93.40 - Télex : 692 169F 


Documentation couleur et liste des revendeurs, sur simple demande. 


Livré complet avec unité centrale, clavier Azerty accentué + pomme ouverte/pomme fermée, contrôleur et lecteur de disquettes 











CHEZ VOTRE LIBRAIRE OU EN BOUTIQUE SPÉCIALISÉE 


APPLE A 


LIVRE OUVERT 


DES LIVRES ET 


DES DISQUETTES POUR TOUS 


POUR DÉBUTER 


Apple pour tous ; la découverte de l'Apple ; 

36 programmes Apple pour tous ; exercices pour 
Apple ; 102 programmes pour Apple ; la pratique 
de l'Apple tomes 1 et 2; le Basic et l'école tomes 

1 et 2; Macintosh le magnifique ; programmer 

le Macintosh ; multiplan pour Macintosh. 


POUR GÉRER 


La nouvelle comptabilité sur 
Apple tomes 1 et 2; La factu- 
ration et ses annexes ; outils 
financiers et comptables pour 
l'entreprise ; la paie et ses annexes. 


V 









POUR PROGRESSER 


Clefs pour Apple Il; clefs pour Apple //c; 

la pratique de l'Apple tome 3; l'Apple et ses 
fichiers ; gestion de fichiers et de périphériques 
pour Applell/Pascal; Microbook, base de données 
pour Apple ; Pascal UCSD sur Apple tomes 1 et 2; 
du Logo pour Apple ; ProDOS sur Apple ; 
Pangraphe ; modèles d'expression graphique. 


POUR DÉCIDER 


Modèles pratiques de décision 
tomes 1 et 2; Visicalc sur Apple ; 
Mukiplan pour Apple Il; bases 
de données sur Apple Il; 
bibliothèque scientifique en 
Pascal ; tests statistiques 
usuels. 


LA DÉCOUVERTE DE EE 


L'APPLE ET SES FICHIERS 


Référence 143 du service-lecteurs (page 66) 





ÉDITIONS DU P. 
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n°68 mars 1985 


e Cedex - France 





PTT) Te) 


